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INTRODUCTION” 





* Tous les caractères ç qui figurent sur les listings doivent être frappés en barre oblique 
inversée ( \ ) sur le clavier. 








ASTRONOMIE, ASTROLOGIE, INFORMATIQUE 








Depuis des millénaires. la pratique de l’astrologi était réservée à un très 
petit nombre d'individus qui d'abord observaient eux-mêmes le ciel, puis 
qui avaient accès aux données nécessaires, les relevés des positions 
journalières des planètes. Au XVI° siècle, Tycho Brahé observa le ciel 
quotidiennement pendant plus de quarante ans, et c’est pour accéder à ses 
relevés, nécessaires pour la vérification de ses théories, que Képler insista 
pour être son assistant et accepta toutes les conditions qu'il lui imposa. La 
confusion entre astronome et astrologue était fréquente. Tycho Brahé, 
astronome du roi de Danemark, était tenu d'établir les thèmes des enfants 
royaux. 

La diffusion des tables d’éphémérides a contribué à la vulgarisation de 
l'astrologie. Les tables permettent de dresser un thème natal assez 
rapidement, mais elles cantonnent souvent les amateurs à une astrologie 
statique, limitée à la seule prise en compte du thème de naissance. Les 
recherches qu'implique l'astrologie évolutive — révolutions solaires, 
transits, etc. — exigent une consultation des tables, longue et fastidieuse, 
souvent décourageante. 

L'informatique est en train de modifier cette situation. Depuis une 
vingtaine d'années, les gros ordinateurs établissent des tables d’éphé- 
mérides extrêmement précises pour satisfaire les besoins des astronomes : 
pointer un télescope nécessite fréquemment de connaître la position d’une 
planète à 1/100 de seconde d’arc près. L’astrologie n’exige pas une telle 
précision. 

Les possibilités offertes par un micro-ordinateur comme l’ Amstrad sont 
tout à fait suffisantes pour tous les calculs. L'apport essentiel de la 
micro-informatique est d'un autre ordre. C'est l'accélération incomparable 
des temps de calcul, la possibilité de “feuilleter” les tables d’éphémérides 
de manière automatique, la rapidité d'adaptation à toutes les recherches 
préalables à l'interprétation d’un thème ou à la prédiction. 

Cependant, il ne faudrait pas que le lecteur se laisse entraîner par les 
performances de la machine. 

D'une part, les possibilités innombrables de calculs que permet un 
logiciel d'astrologie doivent toujours être remises en perspective astrolo- 
gique. Rien ne sert de repérer les semi-sextiles de l’Ascendant avec 
Saturne si le symbolisme astrologique de ce phénomène astronomique 
n'est pas établi. Le calcul isole les différentes parties d’un thème 
(planètes, maisons, répartitions, cycles, etc.); l’astrologue doit les 
considérer dans leur ensemble, de manière globale, en un acte de 
perception synthétique. 
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D'autre part, la précision de calcul qu’apporte l'informatique n’amélio- 
rera pas forcément la justesse de l’interprétation. Il ne faut pas entretenir 
de confusion : l’astronomie se veut une science exacte, l'astrologie est un 
art divinatoire basé sur des données astronomiques. Le logiciel ASTRO- 
CALC garantit les positions des planètes et des maisons à un demi-degré 
près, pour toutes les dates comprises entre le 1 janvier 1800 et le 
31 décembre 2199, ce qui situe précisément le degré du signe dans lequel 
elles se trouvent. Nous n’estimons pas qu'une précision supplémentaire 
soit réellement significative. Qui connaît son heure de naissance avec une 
précision supérieure à cinq minutes, et par conséquent son ascendant à 
moins d’un degré près ? Les astrologues eux-mêmes ne sont pas d'accord 
sur ce qui détermine le moment de la naissance : sortie de la tête, premier 
cri, coupure du cordon ombilical, etc. Il est alors illusoire de vouloir 
chercher à calculer les positions des planètes à la minute d'angle près! 

Rappelons simplement cet avertissement que Ptolémée. le “prince des 
astrologues”, adressait aux lecteurs de la première anthologie occidentale 
d’astrologie au 11° siècle de notre ère: “Il y a deux choses principales et 
grandes sur lesquelles sont fondées les prédictions astronomiques. L'une 
qui est la première en ordre et en certitude, par laquelle nous trouvons à 
chaque moment le mouvement du Soleil, de la Lune et des autres astres, et 
les regards qu'ils ont entre eux ou ceux qu'ils ont envers la Terre. L'autre 
par laquelle, suivant les qualités naturelles de ces astres, nous considérons 
les changements qu'ils produisent, selon leur position, dans les corps. 
Toute personne qui aimera la vérité ne comparera pas les arguments de 
l'astrologie avec la certitude de l’autre immuable doctrine — l’astro- 
nomie —, lorsqu'il pensera combien grande est la faiblesse commune 
et la difficulté de conjecturer les qualités de la matière.” 





COMMENT LIRE CE LIVRE... 





Si vous désirez avant tout obtenir un logiciel de calcul astrologique 
complet et performant, sans vous soucier réellement des mécanismes mis 
en œuvre par le programme, vous pouvez tout de suite vous précipiter à la 
page 131 où vous trouverez le listing complet de ce logiciel. Une fois entré 
en machine, ce programme vous permettra : 


e De dresser un thème de naissance, en calculant les positions planétaires, 
les emplacements des pointes des maisons. les points fictifs (Lune Noire, 


nœuds lunaires et Part de Fortune), les aspects existant entre les 
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différents points du thème et les répartitions des planètes selon les 
partitions binaire, ternaire et quaternaire. 


e De calculer une révolution solaire avec tous les paramètres énumérés 
ci-dessus. 


e De comparer deux thèmes astrologiques; cette comparaison peut 
s'effectuer aussi bien entre deux thèmes natals qu’entre un thème natal 
et une révolution solaire. Le programme affichera alors tous les aspects 
existant entre les différents points des deux thèmes. 


e De calculer pour un thème donné les transits planétaires affectant ledit 
thème. Le programme affichera alors toutes les dates où la planète 
transitante formera un aspect significatif avec un point quelconque du 
thème natal. 


e De calculer les directions symboliques (progressions) des différentes 
planètes. 


Si vous désirez comprendre les procédures de calcul mises en œuvre dans 
ce logiciel, lisez ce livre de la première à la dernière page. Chaque chapitre 
présente en détail une fonction du programme qui n’aura plus de secrets 
pour vous. À la fin de chaque chapitre, une séquence de test vous 
permettra de constater sur l’écran l’évolution de votre travail. Vous 
pourrez ainsi apporter au programme les modifications que vous désirez et 
tirer profit du Chapitre 13 en programmant de nouvelles applications. 

Quelle que soit votre démarche, ce logiciel, une fois entré en machine, 
réalisera en quelques minutes des calculs qui, au moyen des tables 
classiques, peuvent prendre des heures. Aïnsi libéré des tâches fasti- 
dieuses, vous pourrez consacrer le temps gagné à l’art difficile, mais Ô 
combien enrichissant, de l'interprétation. 





QUELQUES CONSEILS 





Le logiciel une fois achevé occupe environ 33 Ko en mémoire. Le fait 
d’entrer le programme en machine chapitre par chapitre permet, grâce aux 
programmes de tests, de détecter immédiatement une éventuelle erreur de 
frappe. Le listing complet représente environ 750 lignes de texte BASIC, 
et il est beaucoup plus simple de retrouver une erreur dans un module 
d’une cinquantaine de lignes que dans un programme qui en compte 
plusieurs centaines. 

Tout module décrit dans un chapitre utilise, en règle générale, des 
sous-programmes définis lors des chapitres précédents. Quand vous avez 


412. 


entré en machine un module, trouvez-lui un nom et sauvegardez-le. En 
utilisant la fonction MERGE vous pourrez toujours disposer, sur une 
cassette (ou une disquette), d’un programme regroupant tous les modules 
que vous aurez entrés, et du dernier module mis en mémoire. Vous 
pourrez ainsi tester celui-ci avant de le fusionner aux modules précédents. 
Compte tenu de la (relative) fragilité des supports physiques (disques ou 
cassettes), il est vivement conseillé de sauvegarder la dernière mise à jour 
du programme sur deux cassettes (ou disquettes) différentes. 

Concernant l’utilisation de MERGE, les programmes de tests (situés en 
lignes 50000 et suivantes) se terminent tous par END et seront recouverts 
par le dernier test entré en machine. Dans le cas où quelques lignes d’un 
ancien test subsistent en fin de programme, elles seront donc invisibles 
pour l'ordinateur. 


UTILISATION D'UNE IMPRIMANTE 


Le logiciel prévoit la possibilité de sortir les résultats des calculs au 
moyen d’une imprimante. 

Les essais ont été réalisés au moyen d’une imprimante Epson LX-80. 
Toute imprimante offrant des lignes de 80 caractères au moins devrait 
fonctionner sans adaptation. Si vous ne possédez pas d'imprimante et ne 
prévoyez pas d’en offrir une à votre ordinateur, vous pouvez supprimer, 
dans tous les modules, les instructions “PRINT #8...” et les tests portant 
sur la variable FLPRT. Pour éviter le blocage de l’unité centrale, en 
attente d’un signal provenant d’une imprimante inexistante, ajoutez dans 
la section “initialisation” une instruction FLPRT=0. 


STRUCTURE GÉNÉRALE DU LOGICIEL 


Avant de décrire en détail chaque constituant du logiciel, il paraît 
souhaitable de donner un aperçu de sa structure et d'effectuer quelques 
remarques. 


Initialisation : lignes 30000 à 30730 


Ici sont regroupés tous les sous-programmes participant à l'initialisation. 
Ces modules déclarent les tableaux de variables et de chaînes de 
caractères, définissent les formats d’impression et les fonctions utilisateur. 
Préparation d’écran en mode texte : 25000 à 25410 


2.132 


Le logiciel achevé permet de regrouper sur une seule page écran les 
résultats des calculs. Le module de préparation d’écran définit le mode 
d'écran, les couleurs d’encre et de fond, les fenêtres, et trace les cadres, 
améliorant ainsi la lisibilité. 

Préparation d’écran graphique : 25420 à 26280 


Une option “sortie graphique” permet de dessiner une carte du ciel sur 
l'écran, avec les symboles traditionnellement utilisés en astrologie. Ce 
module définit les symboles en question puis trace le fond d’une carte du 
ciel. 

Routines d’entrées-sorties : 25420 à 26280 


Ce module se définit de lui-même. 


Noyau central : 10000 à 12160 


Contient le menu général, permettant à l’utilisateur de sélectionner les 
traitements de son choix, et les programmes (essentiellement composés 
d’appels à des sous-programmes) effectuant lesdits traitements. 


Routines de calcul : 1030 à 12160 


Contient tous les sous-programmes élémentaires de calcul (planètes, 
domification, aspects, etc.). 


Tracé de la carte du ciel : 21230 à 21680 


Positionne les planètes et les cuspides des maisons sur la carte 
graphique. 


Routines de test : 50000 et au-delà 


Permet de tester le logiciel chapitre après chapitre. 
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LES SYSTÈMES DE RÉFÉRENCE 





Le but de ce chapitre est double. Il s’agit, d'une part, de rappeler 
brièvement les éléments astronomiques de base, utilisés en astrologie, qui 
permettent de situer dans l’espace et le temps les phénomènes et les 
événements auxquels s'intéresse l’astrologue. 

D'autre part, il s’agit d'introduire un certain nombre de sous- 
programmes utilitaires qui seront appelés maintes fois tout au long du 
programme et qu'il est préférable d’avoir introduits avant le début des 
calculs proprement dits. 


LA SPHÈRE CÉLESTE 


La voûte céleste est représentée sous la forme d’un globe centré sur le 
Soleil (coordonnées héliocentriques), sur la Terre (coordonnées géocentri- 
ques) ou sur le lieu où se trouve l’observateur (coordonnées topocentri- 
ques). 

Le mouvement apparent du Soleil sur la sphère céleste centrée sur la 
Terre est appelé écliptique. Son plan forme avec celui de l’équateur un 
angle de 23° 27’. L'équateur céleste et l’écliptque se coupent en deux 
points ; l'un deux est le point vernal, ou point qui correspond à l’équinoxe 
de printemps dans l’hémisphère nord; l’autre correspond à l’équinoxe 
d'automne. 

Le zodiaque est une bande circulaire du ciel, large de huit degrés et demi 
de part et d’autre de l’écliptique, au long de laquelle cheminent les astres 
du système solaire. On représente le zodiaque sur une surface plane par un 
cercle divisé en douze parties égales représentant les douze signes 
zodiacaux. Chacun d’eux a donc une étendue qui correspond à 30° de 
longitude comptés sur l’écliptique (Figure 2.1). 

Le point vernal, à 0° du Bélier, sert d’origine pour mesurer les angles sur 
l’écliptique. 





E: écliptique trajectoire du Soleil 
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Nous commencerons le programme par la définition des noms des signes 
du zodiaque, rangés dans le tableau de chaînes de caractères SIGNS (1), I 
de 1 à 12, qui est dimensionné ligne 30020 et rempli lignes 30070 à 30120. 
Nous avons là le début du programme d’initialisation, qui sera complété au 
fur et à mesure. L’instruction RETURN est tout de suite mise à sa place 
définitive, ligne 30690. 


ZT0000 REM ##%%#3%3%%3%% TABLEAUX #%#%#3%% FONCTIONS #2 26-26-3626 2636360 DD DD DE DE DD DE DÉMO 
T0010 REM 

:0020 DIM SIGN#(12) ,JOUR(12) 

0080 REM ##3#2432X SIGNES DD DEEE UE 

0090 REM 

10100 DATA BELIER, TAUREAU,GEMEAUX , CANCER , LION, VIERGE , BALANCE 

30110 DATA SCORPION,SAGITTAIRE , CAPRICORNE , VERSEAU, POISSONS 

30120 FOR 1=1 TO 12:READ SIGN#(I):NEXT 

30690 RETURN 


LES SYSTÈMES DE COORDONNÉES 


Toutes les représentations de la sphère céleste utilisent des systèmes de 
coordonnées analogues aux latitudes et longitudes terrestres, qui obéissent 
au même principe : la sphère céleste est divisée par un plan diamétral 
privilégié dont la trace est E, et dont l’un des pôles P est également 
privilégié (Figure 2.2). On choisit un méridien de référence qui coupe E en 
O. Enfin on définit sur E un sens direct qui va de la droite vers la gauche 
d’un observateur situé au centre de la sphère, la tête vers P. Le point A est 
déterminé par les angles « et B ou par les arcs OA’ et AA‘ correspondants. 


Figure 2.2 
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Quatre systèmes de coordonnées sont utilisés. 


Les coordonnées équatoriales (géocentriques) 










pôle Nord 

C = Terre 
E = Equateur 
P = Pôle Nord céleste 
O = Point vernal 
a = Ascension droite 
B = Déclinaison Ô 

déclinaison 

équateur 
ascension droite 

Figure 2.3 


Les coordonnées écliptiques (géocentriques ou héliocentriques) 


pôle boréal écliptique 


JS 


Terre ou Soleil 

Écliptique 

Pôle boréal de l'écliptique 
Point vernal 

Longitude écliptique À 
Latitude écliptique 


Won 


DR OTTmMO 
Il 


latitude écliptique 





écliptique 


équateur 





Figure 2.4 
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Les coordonnées horizontales (topocentriques) 








C = Point de la Terre où se trouve l'observateur zénith 
E = Plan horizon de C 
P = Zénith (direction perpendiculaire à 
l'horizon) 
O = Intersection de l'horizon avec le méridien 
du lieu 
a = Azimuth a compté dans le sens rétrograde 
B = Hauteurh 
azimuth 
méridien 
du lieu 
Figure 2.5 


Les coordonnées horaires (topocentriques) 













C = Point de la Terre où se trouve l'observateur pôle Nord céleste 
E = Equateur 
P = Pôle Nord 
O = Intersection de l'horizon avec le méridien 
æ = Angle horaire AH compté dans le sens 
rétrograde 
B = Déclinaison 
; déclinaison 
équateur 
angle horaire 
méridien 
du lieu 
Figure 2.6. 
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L'astrologie utilise, pour situer les positions des planètes dans le 
zodiaque, le système de coordonnées écliptiques géocentriques. Pour 
effectuer la domification du thème (qui est directement dépendante du lieu 
de naissance sur le globe terrestre), on utilise deux systèmes topocentri- 
ques (horizontal et horaire). 

Les positions des planètes ne peuvent, hélas, pas être obtenues 
directement dans le système écliptique. L'application des lois de Képler 
nous permet d'obtenir la position d'une planète sur son orbite à un 
moment donné. Deux transformations successives sont nécessaires pour 
obtenir la longitude écliptique à laquelle s'intéresse l’astrologie. 

La première nous permet d'obtenir les coordonnées cartésiennes de la 
planète dans le système géocentrique. 

La seconde permet de calculer la longitude écliptique géocentrique. 

Ces transformations sont réalisées par deux sous-programmes. 

Le premier part des coordonnées de la planète dans le plan de son orbite 
(voir Figure 2.7): elle est repérée par l’angle PSM = AV, le point P est 
défini par l'angle WSP = LPH et le point W, qui se trouve à l'intersection 
de l'écliptique et du plan de l'orbite, est défini par son angle avec le point 
vernal ySW = LNA. L'inclinaison du plan de l'orbite sur l’écliptique est 
IC. La formule de passage des coordonnées équatoriales aux coordonnées 
écliptiques donnée en Annexe n’est valable telle quelle que pour la Terre. 
Pour la transposer à la Figure 2.7, il faut faire deux changements : 


e remplacer € (inclinaison de l’écliptique sur l’équateur terrestre) par 

— IC; 

e opérer une rotation de — LNA autour de SW qui change « en a — LNA 
et À en À —- LNA. 

On a alors, avec les notations utilisées dans les annexes: 

tg (A — LNA) = cos (IC) * tg(a — LNA) 
sin B = sin (IC) * sin (a — LNA). 

Dans le programme, la longitude À est appelée LH, la latitude BH, 
l'inclinaison IC; l'angle « est AV + LPH (angle WSM). On introduit 
l'angle auxiliaire UH = AV + LPH — LNA et les formules deviennent: 

LH = LNA + Arctg (cos (IC) + tg (UH)) 
BH = Arcsin (sin (IC) + sin (UH)) 


Comme la fonction Arcsin n’existe pas sur l’ Amstrad, il faut se ramener 
au calcul d’un Arctg en posant : 
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plan de l'orbite 


Y 


(0° Bélier) 


Figure 2.7. 


La fonction Arctg ne définit un angle qu’à x près ; pour la définir à 27 
près, il faut connaître le signe de son cosinus, et rajouter x si le cosinus est 
négatif ; c’est ce qui est fait ligne 1190, le cosinus de LH étant du même 


VH = sin (BH) = sin (IC) * sin (UH) 





BH = Arctg(VH/V(1 —- VH?)). 


signe que celui de UH. 


Le programme calcule ensuite les coordonnées cartésiennes géocentri- 
ques XP, YP, ZP à partir des coordonnées cartésiennes du Soleil par 
rapport à la Terre XT, YT, du rayon vecteur SP (RV dans le programme) 


et des 


1130 
1140 
1150 
1160 
1170 
1180 
1190 
1:00 
1.10 


1220 


angles LH et BH. 


REM ###*% PASSAGE AUX COORD. HELIOCENTRIQUERS 4 4e 4e 46e de 4e 4e 46 4e 00e 46 9e 0e de 46 de de Me #4 
REM VARIABLES IC,AV,LPH,LNA,XT,YT,RV 
REM XP,YP,2P,LH,EBH,UH,VH 


UH=AV+LFH-LNA 
LHELNA+ATN (TAN (UH) #COS (IC) ) 
1F COS(UH)<O THEN LH=LH+PI 
IF LH£O THEN LH=LH+2#PI 
VH=SIN (UH) #SIN(IC) 

BH=ATN (VH/SQR (1-VHæVH) ) 
XPF=XT+RVxCOS (BH) #COS (LH) 


250 YPF=YT+RV*COS (BH) #SIN (LH) 


1240 


1250 


ZF=RVXSIN (BH) 
RETURN 
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Le second sous-programme en 1270 calcule la longitude écliptique 
géocentrique, qui est l’angle utilisé en astrologie, donnée par la formule 


YP 
te (LG) = 


Sachant que cos (LG) est du même signe que XP, il faut ajouter x à 
l’Arctg trouvé si XP est négatif. 





O REM #ææxx TRANSF HELIO ... GEO 426464626262 DD DE DE DEEE DE DE DE DE DER DE DE DE DE DE DE DE DO DE DE DEA DEEE 
1290 REM VARIABLES XF,YF,LG 

90 REM NE CALCULE FAS LA DECLINAISON ... 

00 LGEATN (YF /XF) 

PO IF XF.O THEN LG=LG+FI 

0 RETURN 


SOUS-PROGRAMMES UTILITAIRES DE 
TRANSFORMATION DES ANGLES 


Dans tous les calculs astronomiques, les angles sont exprimés en radians. 
Mais certains calculs auxiliaires propres à l’astrologie (comme la recherche 
des aspects) se font en degrés décimaux, alors que les résultats définitifs 
sont exprimés par la position à l’intérieur d’un signe du zodiaque, l’angle 
compris entre 0° et 29° 59’ étant alors en degrés sexagésimaux. 

Afin de faciliter l'écriture, un certain nombre de sous-programmes et de 
fonctions ont été introduits : 


e un sous-programme de recentrage des angles, qui ramène tout angle RC 
à l'intérieur de l'intervalle 0-360° : 


2/0 REM  REÉCENTRAGE DE O0 À T60 #x#4% 
O IF RC 360 THEN RC=RC-760 : GOTO 1930 
#AO IF KO THEN ROC=RC+760 : GOTO 1940 ELSE RETURN 


e une fonction FNSI qui donne le numéro du signe du zodiaque dans 
lequel se trouve l’angle X : 


30350 DEF FNSI (X) = INT (X/30) + 1 


e une fonction FNLAS qui donne la position de l’angle X à l’intérieur du 
signe dans lequel il se trouve : 


30360 DEF FNLAS (X) = X — (FNSI (X) — 1) + 30 


— #29. 


e une fonction FNMI qui convertit en degrés et minutes un angle exprimé 
en degrés et fractions décimales de degrés: 


30420 DEF FNMI (X) = INT (X) + -6* (X — INT (X)) 


Ces trois fonctions se trouvent dans le sous-programme général 
d’initialisation de manière à être définies avant leur première utilisation. 
Notons enfin que le programme d'initialisation contient également 
l'instruction RAD (ligne 30680) qui précise que les fonctions trigonométri- 
ques concernent des angles exprimés en radians. 

La conversion des radians en degrés décimaux ne fait pas l’objet d’un 
sous-programme particulier et se fait au fur et à mesure des besoins. 


LA MESURE DU TEMPS 


L'unité de temps utilisée pour les calculs astronomiques qui déterminent 
les données astrologiques est le siècle julien de 36525 jours (correspondant 
à 100 années consécutives, une sur quatre étant bissextile). Le repère 
standard préconisé par l’Union astronomique internationale est le 
1°" janvier 2000 à 12 h, qui est le temps 0; c’est le jour julien 2 451 545 sur 
les éphémérides. 

Trois sous-programmes importants sont liés au temps: 


e le calcul du temps séparant une date donnée du 1°" janvier 2000 à 12 h; 


e le calcul inverse, de la date correspondant à un temps donné: 
e le temps sidéral d’un lieu donné à un moment donné. 


Au préalable, il est nécessaire de définir une table et deux fonctions qui 
seront intégrées au module d'initialisation. 

La table JOUR (MOIS), définie en 30390-30400, donne le nombre de 
jours écoulés depuis le 1°’ janvier jusqu’au début de chaque mois d’une 
année ordinaire (non bissextile) : 


Mois 1 2 3 4 5 6 7 8 9 1410 11 12 





Jour (mois) O 31 59 90 120 151 181 212 243 273 304 334 


La fonction FNBIS (ANNÉE), ligne 30380, vaut O0 pour les années 
ordinaires et 1 pour les années bissextiles. Une année est bissextile si elle 
est divisible par 4 et pas par 100 ou divisible par 400. 
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Pour faciliter l’écriture on introduit, ligne 30370, la fonction FNDIV 
(A, B), qui vaut 1 si A est divisible par B et 0 autrement. 


ZUI70 DEF FNDIV(A, 
0280 DEF FNBIS (A) = ÉFNDIVA Dati ZenDiv ta, 100) +FNDIV(A,100)#FNDIV(A,400)) 
4 


©0190 DATA 0,71,59,90,120,151,181,212,243,273,304,33 
0400 FOR i=i T0 12 : READ JOUR (1) : NEXT 


Il ne faut pas oublier de dimensionner à 12 le tableau JOUR, en 
l’ajoutant à la ligne 30020 qui devient alors: 


30020 DIM SIGN$(12), JOUR(12) 


Calcul du temps séparant une date donnée du 1° janvier 2000 à 12 h 


Les variables d'entrée de ce sous-programme sont la date avec les trois 
variables JOUR, MOIS, ANNÉE et l’heure HTU en heures et minutes. Il 
donne en sortie le temps T en siècles juliens. 

On pose Z; = JOUR(MOIS), auquel il faut ajouter 1 si l’année est 
bissextile et si le mois est situé après février (lignes 21090-21100). Le 
nombre de jours entiers écoulés entre la date donnée et le 1°’ janvier 2000 
est égal au produit de 365 par le nombre d’années entre 2000 et ANNÉE, 
augmenté de Z,; et du quantième JOUR, enfin diminué de 1 pour que le 
1°" janvier 2000 soit le jour 0 (ligne 21110). 

Il faut ensuite tenir compte des années bissextiles écoulées entre le 
1°" janvier 2000 et le 1°’ janvier de l’année considérée : 


e Après l’an 2000, il y en a une entre 2001 et 2004, deux entre 2005 et 
2008, etc. soit INT ( AMCEE 1999 ) : il faut enlever si néces- 


saire les années 2100 et 2200, qui ne sont pas bissextiles (ligne 
21130). 


e Avant l’an 2000, il y a une année bissextile entre 1996 et 1993, deux 
entre 1992 et 1989, ete.. c'est-à-dire INT ( EUR ANNED ) 


faut enlever si nécessaire les années 1900 et 1800, qui ne sont pas 
bissextiles (ligne 21150). 


Il faut ensuite tenir compte de l’heure : 


e Enlever un demi-jour du fait que l’origine est le 1°* janvier 2000 à 12h 
et non pas à Oh. 


e Convertir l'heure en fraction de jour en la divisant par 24 après avoir 
transformé les minutes en fractions décimales d’heure. 
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La ligne 21150 donne le nombre de jours NBJ, qu'il reste à diviser par 
36 525 pour obtenir le temps T cherché. 


21050 REM CALCUL DU NE DE JOURS DEFUIS 11/1/2000 #26 262 260226 66H DE DE DEEE DE DD 
21060 REM VARIABLES ENTREE JOUR,MOIS , ANNEE 
21070 REM SORTIE NEJ 
21080 REM AUX Zi 
“1090 21 = JOUR (MOIS) 
1100 IF MOIS >= 3 THEN Z1=7Z1+FNBIS (ANNEE) 
1110 NBJ1=565% (ANNEE-2000) +JOUR-1+7Z1 
1120 NEJ=NEJI 


1120 IF ANNEE 2000 THEN NEBJ=NEJ+INT((ANNEE-1997)/4)-—INT ((ANNEE-2001) /100) : GOTO 
‘1150 

1140 NEHJ=NEJ-INT ((2000-ANNEE) / 4) INT ( (ANNEE-1901)/100) 

21180 NEHJ=-0.S5+NBJ+ (INT (HTU) + (HTU-INT (HTU) ) /0.6) /24 

21160 T=NEJ/26525S 

21170 RETURN 


Calcul de la date correspondant à un temps donné 


Ce sous-programme calcule la date JOUR, MOIS, ANNÉE correspon- 
dant à un temps T donné. Comme il est surtout utilisé pour les transits des 
planètes, il ne calcule pas l’heure dans le jour ainsi trouvé ; le lecteur qui 
souhaiterait le faire trouvera les éléments nécessaires à ce calcul 
supplémentaire dans le Chapitre 13. 

A partir du temps T, on calcule d’abord le nombre N, de jours écoulés 
par rapport au 1° janvier 2000 à 0 h (ligne 11925). 


Le calcul de l’année se fait en trois étapes : 


1. Détermination des chiffres du siècle, qui doivent être compris entre 18 
et 22 (lignes 11930 à 11950). 


2. Détermination de la tranche de quatre ans à partir du début du siècle 
(par exemple 1900-1903, 1904-1907, etc.) dans laquelle se trouve 
l’année cherchée (lignes 11955 à 11965). 


3. Détermination du rang de l’année (de 0 à 3) à l’intérieur de cette 
tranche de quatre ans (lignes 11970 à 11995). 


Pour la première étape, on part du nombre de jours séparant le 
1% janvier 2000 du 1°" janvier 1800, soit — 73048 ; au bout de 100 ans, le 
nombre de jours séparant le début du siècle (1° janvier 1900, 1°" janvier 
2100, etc.) est augmenté de 36524 jours, sauf pour le XXI° siècle, qui 
comprend 36 525 jours. Le nombre cherché est déterminé dans la boucle 
d'indice KS. On pose : 


DEBS = Nombre de jours séparant le début du siècle du 1° jan- 
vier 2000. 


FINS = Nombre de jours séparant le début du siècle suivant du 
1° janvier 2000. 


Le 


KS est trouvé lorsque DEBS < N, < FINS. On sait alors que la date 
est comprise entre le 1°’ janvier de l’année (KS + 17) + 100 et le 31 
décembre de l’année (KS + 18) * 100 — 1. 

On calcule ensuite le nombre N, de jours entiers écoulés depuis le début 
du siècle (ligne 11955), puis le nombre A, de périodes de quatre années 
consécutives, soit 1461 jours écoulés (ligne 11960) et le nombre N, de 
jours écoulés depuis le début d’une telle période (ligne 11965). Notons 
qu'il faut ajouter 1 à partir de la deuxième période de quatre ans d’un 
siècle non julien, c'est-à-dire pour KS #3 et A; #0 (ligne 11965). 

Le rang A, de l’année cherchée, à l’intérieur de la période de quatre ans 
qui vient d'être déterminée, s'obtient par une autre boucle, de même type 
que celle qui a permis de déterminer KS. On pose: 


J, = Nombre de jours écoulés entre le début de la période et le début 
de l’année A, (au début J, = 0). 


J; = Nombre de jours écoulés entre le début de la période et le début 

de l’année A, +1: au début J,=366, sauf pour la première 
période des siècles non juliens (c'est-à-dire si N, < 1461 et 
KS #3) (ligne 11975). | 


Quand A, est incrémenté, J, devient J, et J, augmente de 365. L'indice 
À, cherché est tel que J, <N;< J:. 


En définitive, l’année cherchée est : 
ANNÉE = 100 *(17+KS)+4+A,+A (ligne 12000). 
Le rang J du jour dans l’année est alors J= N; — Ji + 1. Mais lors des 


années bissextiles : 


e J = 60 correspond au 29 février et non au 1° mars (ligne 12010). 


e Lorsque J est supérieur à 60, il faut le diminuer de 1 pour tenir compte 
du 29 février et se ramener au cas d’une année ordinaire (ligne 12015). 


La boucle des lignes 12020 à 12030 permet alors de déterminer MOIS, 
qui est tel que JOUR (MOIS) < J < JOUR (MOIS + 1). 


Enfin le quantième, JOUR est J — JOUR (MOIS). 


\V TE DATE ments CEE FEAR X DDR RE DD DEDE DD ED DE DE DE DE DE DE DEEE 


a.5 





46 F 1S+16574-(RS275) 

1945 IF Ni =DEERS AND NI:FINS THEN 11955 
950 DERS-FINS : NEXT 

11955 NI1&INT(NI-DERS) 

11960 A1=INT(NI/1461) 
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11965 
11970 
11975 t66+(N1:1461 AND NOT(KHS=Z)) 
11980 FOR A2=0 TO Z 
11985 IF N2:=J1 AND N2:J2 THEN 12000 
11990 Ji=J2 : J2=J2+365 
11995 NEXT 
ANNEE = (17+KS) #100+4%A1+A2 
5 J= Ji+i 
O IF FNRIS(ANNEE)=1 AND J=60 THEN JOUR=29: MOIS=Z : RETURN 
5 IF FNBIS (ANNEE) =1 AND J:60 THEN J=J-1 
FOR MOIS=1 TO 11 
S IF J:JOUR (MOIS) AND Ji=JOUR(MOIS+1) THEN 12075 
O NEXT MOIS 
JOUR=J-JOUR (MOIS) 
Oo RETURN 


NEE=NI-14861#A1-((A1;0) AND NOT(KS=Z)) 











Calcul du temps sidéral 


Le temps sidéral, d’un point de vue astronomique, est l'angle horaire du 
point vernal. Il mesure donc la rotation de la Terre par rapport à celui-ci, 
c'est-à-dire sensiblement par rapport aux étoiles fixes (à la précession des 
équinoxes près). 

Au temps T (en siècles juliens à partir du 1°’ janvier 2000 à 12 h), le 
temps sidéral TS à 0 h au méridien origine (Greenwich) est donné en 
secondes par le développement suivant, selon les puissances de T: 


TS=24110 : 5484+T + 8640184 : 81+0 : 0931 *T+T 


Il faut ensuite le convertir en heures dans l'intervalle 0 — 24 h, puis en 
radians en le multipliant par 45 . On lui ajoute ensuite la longitude 


LONG du lieu pour lequel il est calculé, ainsi que l'heure HRD, toutes 
deux en radians (ligne 1530). Ce résultat pouvant être en dehors de 
l'intervalle 0 — 2x, il y est ramené ligne 1540. Enfin, converti en heures, il 
est immédiatement affiché sur l’écran, ligne 1550. 


1460 REM ###%%#w%x TEMPS SIDERAL FOUR HT #46 36-2646 362 DE DE D DE GED DE DEEE DE DD DE DE DD DE DE DD DE DE DE 
1470 REM TS EN HEURES ,TSRD EN RADIANS 

1480 TS=24110.5484+T#x8640184.81+0.O09I1LKT4T 

1490 TS=TS/5600 

1900 IF TS+24 THEN TS=TS-24 : GOTO 1500 

1510 IF TS{O THEN TS=TS+24 : GOTO 1510 
TSRD=TS#0.261799387 :REM =TS#F1/12 
TSRD=TSKD+LONG+HRD 

IF TSRD:2#FI THEN TSRD=TSRD-2#PI 

1550 FRINT #S,USING'"'o ç ##.## "3 '"TSN",FNMI (TSRD#12/FI) 
1560 RETURN 








L'ENTRÉE DES DONNÉES 


Nous définirons tout de suite le programme complet d'entrée des 
données pour le calcul d’un thème natal, car il sera utilisé pour les tests des 
calculs intermédiaires des Chapitres 2 à 7. 


2 97.2 


L'écran de l’ Amstrad, grâce à ses 80 colonnes, permet l’affichage de 
tous les résultats avec une lisibilité correcte. Il est ici divisé en cinq fenêtres 


dont le 


contenu est décrit ci-dessous. 


Fenêtre # 1 Positions planétaires. 
Fenêtre # 2 Cuspides des maisons. 
Fenêtre #3 Liste des aspects. 
Fenêtre # 4 Répartitions planétaires. 


Fenêtre #5 Dialogue utilisateur, points fictifs. 


Le sous-programme préparant l’écran à recevoir les données en mode 
texte s'étend de 25000 à 25410. 

La première action de ce sous-programme est de fixer le mode d’écran, 
les couleurs de fond, d’encre et de bord, et de vider l’écran. 


25000 
25010 
25020 
25030 
25040 
25050 
25340 
25350 
25360 
25370 
25380 
25390 
25400 
25410 


REM ### PREPARATION DE L' ECRAN TEXTE #+34434 06340 D D ED DE EEE DEEE DE 2 
MODE 2 

BORDER 2 

INK 0,24 : INK 1,0 

PAPER 1 : PEN O 

CLS 

REM FENETRES 4646 46466-46262 UD D D ED DEEE 
WINDOW #1 ,2,26,2,11 

WINDOW #2 ,2,26,13,24 

WINDOW #3 ,28,53,2,24 

WINDOW #4 ,55,79,2,13 

WINDOW #5 ,55,79,15,24 

FOR 1=1 TO 5 : PAPER #1,1 : PEN #1,0 : NEXT 

RETURN 


L'entrée des données pour un thème natal est entièrement faite dans la 
routine en 20530. Le programme demande successivement : 


e le nom et le prénom de la personne pour qui est dressé le thème, qui 


seront éventuellement reproduits en tête de la sortie sur imprimante 
(lignes 20550 et 20560) ; 


la date JOUR/MOIS/ANNÉE (ligne 20570) ; 
l'heure de naissance en Temps Universel HEURE TU (HH : MN) 


(ligne 20610) ; 


la latitude du lieu de naissance LAT (DD : MN — sisud) (ligne 20630) ; 
la longitude de ce lieu LONG (ligne 20650). 


Les calculs nécessaires pour ranger les données sous une forme utilisable 
pour la suite des opérations sont effectués au fur et à mesure: 


e Rangement du quantième dans JOUR, du mois dans MOIS, de l’année 
dans ANNEE (routine en 20630, voir ci-dessous). 
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e Transformation de l'heure en radians HRD (24 heures équivalant à 
2x). 


e Transformation de la latitude et de la longitude en radians dans LAT et 
LONG (lignes 20640 et 20660). 


Les indications entre parenthèses dans le dialogue rappellent le format à 
utiliser pour rentrer les données correctement : 


e La date doit être exprimée sous la forme quantième/mois/année, par 
exemple 14/09/1985, sans espace entre les caractères. Le quantième peut 
avoir un ou deux chiffres, mais le mois doit toujours comporter deux 
chiffres ; par exemple, pour février il faut écrire 02 et non pas 2. La 
cohérence des données est vérifiée par la routine en 20680 ; si les valeurs 
données sont erronées ou inacceptables, le programme redemande la 
date. 


e L'heure demandée est l’heure en temps universel (anciennement 
appelée heure GMT) sous la forme heure-minutes, les minutes doivent 
toujours comporter deux chiffres. 


e La latitude et la longitude doivent être données sous la forme 
degrés-minutes, les minutes comportant toujours deux chiffres. La 
latitude est comptée négativement s'il s’agit d’une latitude sud; la 
longitude est comptée négativement s’il s’agit d’une longitude ouest. 


20530 REM ###x#####% ENTREE DONNEES FOUR THEME NATAL #26 36 HE AE DD DE D D DD DE DEEE 
20540 REM VARIABLES: HTU,DATE , LONG, LAT 

20550 INPUT #5 ," NOM ‘; NOM$ 

20560 INFUT #5 ," PRENOM “; PNOM$ 

20570 INPUT #5 ,; "DATE J/M/A “,D# 

20580 GOSUEB 20880 

20590 IF FLD THEN PRINT #5,CHR#$(17)+CHR$(11) : GOTO 20570 

PRINT #5, 

O INPUT #S ,"HEURE TU (CHH.MN)'",HTU 

HRD= (P1/12) # (INT (HTU) + (HTU-INT (HTU) )#10/6) 





INPUT #5 ,"LAT(DD.MN -si sud) ",LA 
20640 LAT=(FI/180)%(INT (LA) +(LA-INT (LA) )#10/6) 
20650 INPUT #S ,'"LON(DD.MN +si est) ",LON 


20660 LONG= (F1 /180) # (INT (LON) + (LON—INT (LON) )#10/6) 
20670 RETURN 


Le traitement de la date effectué par la routine en 20680 mérite quelques 
explications. 

La date entrée par l'instruction en 20570 se présente pour l'instant sous 
la forme d’une chaîne de caractères D$ de longueur LD, dont il faut 
extraire les nombres correspondant au quantième, au mois et à l’année. Le 
nombre de caractères ne doit pas être inférieur à 9, sinon le drapeau FLD 
est positionné à — 1 et la date est redemandée (ligne 20700). 

Le quantième est la partie gauche de la chaîne DS, de longueur LD — 7 
(ligne 20710). 
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Le mois est la partie médiane, commençant au caractère de rang LD — 6, 
et de longueur 2 (ligne 20720). 

L'année est la partie droite de la chaîne D$, de longueur 4 (ligne 20730). 

Les lignes 20740 à 20760 servent à vérifier la cohérence des données qui 
viennent d’être données et rejettent la date (ce qui se traduit par le 
positionnement du drapeau FLD à — 1) si: 


e JOUR<1 ou JOUR > 31 
e MOIS<1 ou MOIS > 12 
e ANNÉE <1800 ou ANNÉE > 2200. 


Attention ! Si vous tapez un jour qui n’existe pas dans le mois, mais qui 
satisfait aux conditions précédentes, par exemple le 31 avril ou le 
29 février d’une année non bissextile, le programme prendra comme date 
le jour suivant, le 1° mai ou 1° mars. 


20680 REM #####RHRMMRRRRRRRRNREUE TRAITEMENT DATE 44344606 DEEE DEEE D DEEE DEEE DEN 
20690 FLD=0:LD=LEN(D#) 

20700 IF LD<9 THEN FLD=-1 : RETURN 

20710 JOUR=VAL (LEFT$(D$,LD-7)) 

“0720 MOIS=VAL (MID#$(D#,LD-6,2)) 

20730 ANNEE=VAL(RIGHT$(D$,4)) 

20740 IF JOUR<1 OR JOUR>31 THEN FLD=-1 : RETURN 

207S0 IF MOIS<1 OR MOIS>12 THEN FLD=-1 : RETURN 

20760 IF ANNEE<1800 OR ANNEE >2200 THEN FLD=-1 : RETURN 

20770 RETURN 


Nous définirons également ici deux routines qui seront utilisées pour les 
entrées-sorties : 


e L'entrée d'un choix OUI/NON dans l’une des fenêtres C de l’écran. 


e L'attente de la frappe d’une touche au clavier avant de poursuivre 
l'exécution. 


21180 REM ##4%tt INPUT CHOIX OZIN 4636-0626 26 6H D DD DD DD DE DD DD DE DH DE DE DE DEEE HE DE DIE DID 
21190 REM NUMERO DE CANAL = C 

21200 INPUT #C," O/N “:CH#$: CH#=UPPERS (CH#) 

21210 IF LEFT$(CH$,1)="0" THEN FLCH=-1 ELSE FLCH=0 

21220 RETURN 


Le programme en 21180 teste si la première lettre de la chaîne de 
caractères entrée au clavier est un O (pour OUI) auquel cas le drapeau 
FLCH prend une valeur logique “VRAI (— 1)”. Tout autre caractère 
positionne FLCH à “FAUX (0)” et équivaut à un NON. 

Notez l'emploi de la fonction UPPERS$ qui transforme la chaîne en 
entrée en majuscules avant le test. 


‘0700 REM ### ATTENTE D'UNE TOUCHE #44 36-2640 00434036 
0710 PRINT #C, " ENTER POUR CONTINUER":CALL &BB18:RETURN 
9:90 NEXT 
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La routine en 30700 imprime dans la fenêtre d'indice C le message 
"ENTER POUR CONTINUER” puis appelle une routine en langage 
machine qui suspend l’exécution jusqu’à la frappe d’une touche au clavier. 





TEST DES SOUS-PROGRAMMES PRÉSENTÉS 





La séquence ci-dessous permet de vérifier qu'aucune faute de frappe 
n’est venue se glisser dans votre programme. 

Après son entrée en machine, frappez RUN 50000. Le programme 
demande alors l’introduction d’une date. Puis il calcule le nombre de jours 
écoulés entre cette date et le 1°’ janvier 2000 et l'affiche à l'écran. À partir 
de la variable T ainsi calculée, il procède au calcul inverse et affiche la date 
trouvée. La ligne 50100 calcule ensuite le temps sidéral pour la date et 
l'heure entrées. 


0000 REM TEST DU CALCUL DE T 
O GOSUE 30000 : REM INITIALISATION TABLES ET FONCTIONS 
020 GOSUE 25000 : REM PREPARATION DE L'ECRAN 
50030 GOSUE 20570 : REM ENTREE DES DONNEES 
50040 GOSUR 21050 : REM CALC. DU NOMBRE DE JOURS DEPUIS 1/01/2000 
50050 PRINT" T=";T 
50060 REM TEST DU CALCUL INVERSE 
50070 GOSUR 11920 : REM RECALCULE LA DATE A PARTIR DE T 





50080 PRINT JOUR; “-"; MOIS; "-"; ANNEE 

50090 REM TEST DU TEMPS SIDERAL 

50100 GOSUE 1460 : REM CALCUL DU TEMPS SIDERAL 

50110 GOSUB 30700 : REM ATTENTE D'UNE TOUCHE POUR RECOMMENCER 


50120 CLS #5 
S017:0 GOTO 50030 


Commencez ce test en introduisant comme entrées le 1°" janvier 2000 à 
12 heures (temps origine du programme). Si le temps affiché en sortie est 
différent de zéro, une erreur s’est glissée dans la routine de calcul du 
nombre de jours écoulés depuis le 1° janvier 2000 (lignes 21050 et 
suivantes). Si le temps est égal à zéro mais que la date (en sortie) n’est pas 
le 1°’ janvier 2000, une erreur existe dans la conversion du temps en date 
(11920 et suite). Enfin, le temps sidéral correspondant doit être 18.42, 
sinon vérifiez les lignes 1460 à 1560 (notamment le terme constant, ligne 
1480, ou le coefficient de TS, ligne 1520). 

Pour vous permettre de vérifier les coefficients des termes en T ou T°, 
voici les résultats que doit fournir le programme pour le 23 septembre 1921 
à 3 h 50, latitude 48.45 et longitude 2.20. 
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Cette méthode de vérification en deux temps (termes constants puis 
variables) sera utilisée tout au long de l’ouvrage, afin de permettre la mise 
au point du logiciel sans aucune table d’éphémérides. 


TEMPS SIDERAL À 3H50 LE 23/09/1921 : 4.05 
T = -0.782733478 


LD 


LES POSITIONS PLANÉTAIRES 





Placer les planètes sur le zodiaque constitue la première partie de 
l'érection d’un thème. ce qui se fait habituellement en consultant les tables 
d'éphémérides. La partie du programme exposée dans ce chapitre réalise 
cette opération en calculant la position du Soleil, de la Lune et des huit 
planètes. 

Deux tableaux sont utilisés pour ce calcul : 


e LP(IP) contient les longitudes en degrés des différentes planètes, 
classées de 1 à 10 dans l’ordre suivant: 


1 Soleil 2 Lune 

3 Mercure 4 Vénus 
S Mars 6 Jupiter 
7 Saturne 8 Uranus 
9 Neptune 10 Pluton 


En fait, LP est dimensionné à 12 éléments car, lors des calculs ultérieurs, 
LP (11) contiendra la longitude de l’ascendant et LP (12) celle du milieu du 
ciel. I faut donc l'ajouter ligne 30020. 


e LP$ (IP) contient les chaînes de caractères correspondant aux noms des 
différentes planètes. 


70020 DIM SIGN#(12) ,JOUR(12) ,LF (12) 
20030 REM #36 PLANETES #4 3626 06 DD DD DE 
0040 REM 


9050 DATA SOLEIL ,LUNE , MERCURE , VENUS ,MARS ,JUPITER, SATURNE , URANUS , NEPTUNE , PLUTON 
10060 RESTORE 30050 
20070 FOR 1=1 TO 10:READ FL#(I)D:NEXT I 


Deux lois, énoncées par Képler en 1609 à la suite d’une étude détaillée 
des observations de Mars faites par l’astronome danois Tycho Brahé, 
décrivent le mouvèment des planètes autour du Soleil: 


1. Les planètes décrivent autour du Soleil des ellipses dont le Soleil occupe 
l’un des foyers. 


2. Dans ce mouvement, le rayon vecteur (ligne Soleil-planète) balaie des 
aires égales dans des temps égaux. 


Pour déterminer la position d’une planète à un moment donné, il faut 
connaître un certain nombre de constantes, appelées éléments de l'orbite, 
qui permettent de situer l’ellipse qu’elle décrit par rapport au plan de 
l’écliptique. Ces éléments sont au nombre de six (voir Figures 2.7 et 3.1): 


e Le demi-grand axe de l’ellipse. 
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e L’excentricité de l’ellipse. 
e L'inclinaison du plan de l'orbite sur l’écliptique. 


e La position du nœud ascendant, point W situé sur l'orbite à 
l'intersection du plan de l’écliptique et du plan de l'orbite. 


e La position du périgée P, point le plus proche du Soleil, par rapport au 
nœud ascendant, repérée par l’angle WSP appelé argument du périhélie. 


e La durée d’une révolution de la planète autour du Soleil. 


En fait, les lois de Képler ne représentent pas rigoureusement les 
mouvements des planètes, car elles ne tiennent compte que de l'attraction 
du Soleil, réduisent les planètes et le Soleil à des points et négligent les 
influences mutuelles entre planètes. 

Pour remédier à ces inexactitudes, les astronomes appliquent une 
méthode appelée variation des constantes : on suppose que les lois de 
Képler sont toujours valides, mais que les paramètres qui définissent les 
éléments des orbites varient en fonction du temps. 

On verra dans la suite de ce chapitre comment prendre en compte ces 
variations. 


L'ÉQUATION DE KÉPLER 


La première loi de Képler permet de repérer une planète sur son orbite 
autour du Soleil, dans le plan de cette orbite. 

Un point sur une ellipse est déterminé par trois angles (voir Figure 3.1): 
e L’anomalie vraie, AV, qui est l’angle PSM. 
e L’anomalie excentrique, AE, qui est l’angle POM'. 


e L’anomalie moyenne, AM, qui est l’angle POM”, correspondant à la 
position d’un point fictif parcourant une orbite circulaire d’un 
mouvement uniforme et qui se trouverait au périgée P et à l'apogée A 
en même temps que la planète. 


L’anomalie vraie et l’anomalie excentrique sont reliées en permanence 
par la formule : 


(5 Via (#) 


2 (1—EX) Ê|2 


25435, 


OA = OS = Demi-grand 


0S _ n 
tai Excentricité 





Figure 3.1. 


Le rayon vecteur RV (distance SM) se déduit de l’anomalie excentrique 
par la formule : 


RV = AX * (1 —-cos(AE)) 


La seconde loi de Képler permet de situer la planète sur son orbite en 
fonction du temps. Elle se traduit par la relation 


AE = AM +EX * sin (AE) 


appelée équation de Képler, qui lie l’anomalie excentrique et le temps, 
puisque l’anomalie moyenne est une fonction linéaire de celui-ci: 


AM=M+M;, *T 


M, correspond à l'angle de la planète avec son périgée à l'instant de 
référence (le 1°" janvier 2000 à 12 h) ; M, est l’angle parcouru en un siècle 
julien, qui est lié au temps de révolution R mesuré en années de 
365,25 jours par 
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Mi 
R 


= Ge 


Les principes du calcul étant ainsi posés, nous pouvons détailler le 
sous-programme de résolution de l’équation de Képler qui se trouve en 
tête du programme général, aux lignes 1030 à 1110, car il est le plus 
fréquemment utilisé, et il ne faut pas perdre de temps pour le rechercher 
chaque fois qu’il est appelé. 

Ayant défini l’excentricité EX, le demi-grand axe AX et l’anomalie 
moyenne AM propres à la planète dont on calcule la position, le 
sous-programme calcule l’anomalie excentrique AË, l’anomalie vraie AV 
et le rayon vecteur RV. 

L’équation de Képler est résolue par itérations successives : une dizaine 
d’itérations suffisent pour obtenir la précision désirée (ce qui évite de faire 
nn test entre deux valeurs successives pour sortir de la boucle de calcul). 


1030 REM #####*EQ. DE KEPLER ANOMALIE VRAIE RAYON VECTEUR #36 3626-2606 26 60 34 DD DE DE DE DE DE 
1040 REM VARIABLES EX,AX,AM,AE,AV,RV DD DE DH DEEE DE DE DE DEEE 

1050 AE=AM 

1060 FOR IK=1 TO 10 

1070 AE=AM+EX*SIN(AE) 

1080 NEXT IK 

1090 AV=2KATN(SOR((1+EX)/ (1-EX) )#TAN(AE/2)) 

1100 RV=AX-AX*EX*COS (AE) 

1110 RETURN 


POSITION DU SOLEIL 


L’astrologie a une vision géocentrique du monde et parle donc de la 
position du Soleil, sous-entendu par rapport à la Terre, alors que les 
astronomes calculent la position de la Terre par rapport au Soleil. On 
constate aisément que les deux angles correspondants sont décalés de 180° 
et qu'il suffit donc de calculer la position de la Terre par rapport au Soleil. 

Le sous-programme en 1330 commence par initialiser les éléments de 
l'orbite terrestre. Notons que l’excentricité et le périhélie varient 
lentement avec le temps et que l’inclinaison IC du plan de l’orbite est nulle 
par définition (puisque c’est l’écliptique) ; la notion de nœud ascendant n’a 
pas de sens et l’angle LNA est donc pris égal à zéro. L'anomalie moyenne à 
la ligne 1400 est bien celle du Soleil par rapport à la Terre et il n’y a donc 
pas lieu d’ajouter x à la longitude trouvée dans la suite des calculs. 

Après avoir résolu l’équation de Képler (appel du sous-programme en 
1030), on calcule les coordonnées cartésiennes géocentriques XT et YT, 
qui sont celles d’un point ayant pour coordonnées polaires le rayon vecteur 
RV et l’angle AV +LPH. La longitude LH calculée dans le sous- 
programme de passage aux coordonnées héliocentriques en 1130 donne le 
résultat cherché, qui est transformé en degrés et rangé dans LP (1). 
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1330 REM ##### CALCULS TERRE SOLEIL #42 46-26 36262646 3406 60e DE DE DE DE DE DE DH DE D DE DE DE DEEE DE DEEE JON 


17:40 REM VARIABLES AX,LNA,IC,EX,LPH,AM 
1:50 AX=1.00000102 

1760 LNA=O 

17:70 IC=0 


180 EX=0.016708617-0.000042%7T 
1:90 LFH=4.9%818827+0.028855642%T 
1400 AM=6.240086001+628B.707T111%T 
1410 GOSUR 1070 

1420 XT=RV#COS (AV+LFH) 

1430 YT=RV#SIN(AV+LFH) 

1440 GOSUR 1170 

1450 RETURN 


POSITION DE LA LUNE 


L'étude de la position de la Lune est l’un des problèmes les plus difficiles 
de la mécanique céleste. Le mouvement de base de la Lune suit les lois de 
Képler ; c'est une orbite elliptique dont la Terre est l’un des foyers, et dont 
l'anomalie vraie suit l'équation de Képler. Mais, au bout d’une révolution, 
la nouvelle position de la Lune s’écarte de l’ancienne de deux ou trois 
diamètres apparents. Le mouvement elliptique n’est qu’une approximation 
et il n’est pas possible de négliger les perturbations périodiques du 
mouvement de la Lune, dues en grande partie au Soleil et, à un moindre 
degré, à la Terre. 

A la longitude moyenne L de la Lune dans le plan de l’écliptique, de 
période 27,32 jours, il faut ajouter une série de termes périodiques. Les 
éphémérides astronomiques qui cherchent une précision au millième de 
seconde d'angle prennent en compte quelque 1500 termes, appelés 
inégalités. Pour la précision recherchée ici, une quinzaine de termes 
suffisent, ceux dont l’amplitude dépasse une minute d’angle. 

Ces termes sont calculés au moyen de quatre angles indépendants du 
système de référence : 


e L’anomalie synodique D. différence des longitudes moyennes de la 
Lune et du Soleil. 


e L’anomalie draconitique F, longitude moyenne de la Lune comptée à 
partir de son nœud ascendant. | 


e L'anomalie moyenne de la Lune ML. 
e L’anomalie moyenne du Soleil AM, déjà calculée lors de la détermina- 


tion de la position du Soleil. 


Ces angles étant calculés (lignes 2970-3000), la longitude est alors 
exprimée comme la somme de la longitude moyenne et d’une série de sinus 
de combinaisons linéaires des quatre angles D, F, ML et AM, 
successivement : 
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e Les inégalités anomalistiques, correspondant au développement de la 
solution de l’équation de Képler pour la Lune : termes en ML et 2*:ML. 


e L'évection, principale inégalité due à l'influence du Soleil sur l'excentri- 
cité de l’orbite lunaire ; déjà connue de Ptolémée, elle a une amplitude 
de 1°16’ et une période de 32 jours environ: termes en 2*D -ML et 
2*D+ML. 


e L'inégalité parallactique, dont la période est la révolution synodique 
(29 jours et demi) : terme en D. 


e La variation, due au fait que la Lune décrit un ovale dont le petit axe est 
dirigé vers le Soleil, avec une période d'environ 15 jours: terme en 
2*D. 


e Le mouvement séculaire du périgée : terme en 2 * (D — ML). 


e Les erreurs annuelles, dues à l’influence du Soleil : termes où intervient 
l'angle AM. 


e La réduction à l’écliptique, due à l'influence de l’inclinaison de l'orbite 
lunaire, liée à la rétrogradation des nœuds : termes où intervient l’angle 
2*F. 


La longitude ainsi calculée est enfin ramenée à un angle compris entre Ü 
et 2 x, ligne 3070. 


2950 REM ######R42%0% POSITION DE LA LUNE #20 DD DE DE DE DE HD DD DD DE DE DD DE DE DE 
2960 LSOL=AM+LFH 

2970 D=5.19846674+7771.77715#T-0.0 28SxTXT 

2980 F#1.62790527+8453.46616#T-0 
2990 ML=2.3555559+8:28.69143#T+0.0 
L=3.8105444+8:99,70911#T-0.0000232%T#7T 

L=L+0,1097598#SIN (ML) +0.007764B8#SIN(TæML) 

020 L=L-0.0032393#SIN (AM) +0.00071558%#SIN(ML-AM) -0, 000S2727#S IN (AM+ML) 
L=L+0.0114901#SIN(2#D)+0.0010267#SIN (2% (D-ML)) +0.0009987#SIN(2#D-AM-ML) 

O LeL+0.022253555S%SIN(2#D-ML) +0.00097026#SIN (2#D+ML) +0. 000801 1#SIN(2#D-AM) 
O L=L-0.00060582#SIN(D)+0.000267#SIN(2#(D-F)) 

060 LæL-0.0019949%SIN(2%F) -0.000219%SIN(Z#F+ML)-0.0001972#SIN(2#F-ML) 

3070 L=L-2#PI#INT(L/(2#F1)) 

3100 RETURN 
















BOUCLE DE CALCUL DES POSITIONS PLANÉTAIRES 


Les sous-programmes calculant la position du Soleil et de la Lune étant 
présentés, nous pouvons écrire la boucle générale de calcul des positions 
planétaires. 

On calcule d’abord la position du Soleil (sous-programme en 1330) 
correspondant à l’indice IP = 1, puis celle de la Lune, correspondant à 
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IP =2. L’impression du résultat se fait immédiatement par l’appel du 
sous-programme en 20360, qui sera précisé un peu plus loin. 

Une boucle sur IP prenant les valeurs de 3 à 10 calcule ensuite les 
positions des planètes de Mercure à Pluton. Les étapes sont identiques 
pour chaque planète : 


e Chargement des éléments de l’orbite, par un sous-programme propre à 
chaque planète, appelé ligne 3170. 


e Résolution de l’équation de Képler (sous-programme en 1030). 


e Passage des coordonnées polaires dans le plan de l'orbite aux 
coordonnées cartésiennes géocentriques (sous-programme en 1130). 


e Calcul de la longitude géocentrique en radians (sous-programme en 
1270). 


e Transformation de la longitude en degrés et recentrage de celle-ci entre 
0 et 360° (ligne 3210). 


e Impression du résultat (sous-programme en 20360). 


3110 REM ####w###tx CALCUL POSITIONS PLANETAIRES #44 4246 46 DE DH DE DD DE DD NE DE DEAR EME 
3120 CLS #1 

7130 GOSUB 1330 : IP=1 : LP(IP)=LH#180/PI : GOSUB 20360 
140 IF=2 : GOSUR 2950 : LP(2)=L#180/FI : GOSUB 20360 

:150 REM IMPRESSION MODE TEXTE INCLUSE 

2160 FOR IF=3 TO 10 

‘170 ON IP-2 GOSUB 2050,2140,2220,2300,2440,2580,2720,2870 
‘180 GOSUB 1030 

GOSUB 1130 

O GOSUER 1270 

O LP(IF)=LG#180/FI : RC=LP(IP):GOSUB 1920:LF (IF) =RC 
NEXT IF 

Q RETURN 
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ELEMENTS DES ORBITES 


Un sous-programme propre à chaque planète définit les valeurs au 
temps T de chacun des six éléments permettant le calcul de la position des 
planètes. Chaque sous-programme comporte une ligne (ou plus parfois) 
donnant la formule qui permet de calculer un paramètre. Cette solution de 
programmation a été choisie de préférence à l’entrée des coefficients sous 
forme de tableaux de DATA, d’une part parce que certains des coefficients 
n'existent pas pour certaines planètes, d’autre part parce que la vérification 
de la frappe est beaucoup plus aisée de cette manière. 

Il faut apporter un soin extrême à la frappe des lignes correspondantes, 
car une erreur sur un des coefficients peut entraîner des erreurs dans la 
position d’une planète sans qu’une erreur soit détectée à l’exécution du 
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programme. Les valeurs des coefficients sont celles qui sont données par 
l'annuaire 1984 du Bureau des Longitudes, et qui ont été recalculées 
récemment en tenant compte des observations faites avec les instruments 
de mesure les plus modernes. 

Dans la pratique, il est utile de distinguer les petites planètes, Mercure, 
Vénus, Mars et Pluton, des grosses planètes, Jupiter, Saturne, Uranus et 
Neptune. 

Pour les petites planètes, les éléments des orbites varient très lentement 
au cours des siècles, leur variation est très bien représentée par un 
développement selon les puissances du temps a + T, limité au premier 
ordre compte tenu de la précision recherchée dans les calculs. 

Un conseil pour taper les lignes correspondantes: tapez d’abord les 
lignes 2050 à 2130 correspondant à Mercure. Une fois que vous avez vérifié 
qu’elles sont exactes, vous taperez plus facilement celles de Vénus, de 
Mars et de Pluton en recopiant celles de Mercure et en modifiant 
seulement les coefficients (et les numéros de lignes, bien sûr!). Prenez 
également bien soin de vérifier le signe des coefficients. 


ZOSO REM ##**###%#%% constantes MERCURE 446 36266 464 D DE 26 46 24 6 6 A DE D DE 6 AA AE DE DEA 6 
060 AX=0.58709831 
Oo EX=0.20563175+0.0000204#7T 
O 1C=0.12226+0.000032#7T 
O LNA=O,8435332+0,0164896%#T 
LPH=1.1:51864+0.0269945#T 
AM=3.05074484+2608.78771#T 
RETURN 
2140 REM *#*##k#x constantes VENUS 446 24638 262-266 6 D D DE DEAD EE DE DE DE DEA EU GED EE AE DE DE DE 
2150 AX=0.72332982 
2160 EX=0.00677188-0.0000478#T 
2170 1C=0,059248+0,000011%T 
2180 LNA=1.73:871709+0.01S570S3%T 
2190 LFH=2.29622<0.0248%T 
2200 AM=0.879926837+1021.72814%T 
2210 RETURN 
2220 REM ######% constantes MARS 46 46 4646 26 26e 6 DD D DD ADM DE A6 DA D DD 28 
2230 AX=1.52367934 
2240 EX=0.0944006+8.9S5254E-05S%T 
2250 1C=0.03228:8-0.000011749%T 
-86495188+0.0165541%T 
4178277+0.03213229%T 
© 238125306+334.053496#T 
2290 RETURN 
2870 REM ###4#2%%%32%% CONSTANTES PLUTON 626 26 36260 44 DD D D DE D ED AUDE DE DE 
O AX=3:9,458712 
250236 
-91762412 
O 1C=0.299681 
O LNA=1.9157:24+0.5824%T 
30 AM=0.25429447 + 2.53983607%T 
O RETURN 











Pour les grosses planètes, il faut tenir compte, en outre, de perturbations 
périodiques à longue période, selon un cycle de 852 ans pour Jupiter et 
Saturne, et de 4230 ans pour Uranus et Neptune ; sinon l’erreur induite 
pourrait atteindre un degré en plus ou en moins. Nous négligerons par 
contre des perturbations à courte période, inférieures à 0,3° pour Saturne 
et à 0,1° pour les trois autres grosses planètes. 
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Les perturbations périodiques se traduisent par l’addition de termes 
correcteurs au demi-grand axe, à l’excentricité, au périgée et à l’anomalie 
moyenne des planètes, termes correcteurs qui sont fonction de l’angle 
PERT, appelé argument de perturbation, le même pour Jupiter et Saturne 
d'une part, pour Uranus et Neptune d’autre part. Il faut leur ajouter, 
comme pour les petites planètes, un développement selon les puissances du 
temps, en tenant compte pur certains éléments de certaines planètes des 
termes en T°. 

Comme pour les petites planètes, il est conseillé de taper d’abord les 
lignes 2300 à 2430 correspondant à Jupiter, puis de taper celles des autres 
planètes en recopiant celles de Jupiter et en modifiant les coefficients, en 
faisant attention aux changements de signe éventuels. 


00 REM #####* constantes JUPITER #4 26262626 6466 D DE DE DD DH JDE DD DD DE DE DD DD HE DE HE DH DE DD DE IDE IEEE 

O PERT=0.7:7400761#T+3.094215:07 

1O AX=AX+0.000263*C0S (FERT) 

& D EX=0.048497994+0.000167218#T-0.00000047#T#7T 

2150 EX=EX+0.000761#SIN(FERT) +0.000129%C0S (FERT) 

1C=0,02274 T-0.000095972#T+0.00000008%7T#7T 

LNA=1.75ST 74+0.0178194#T+0.000007#7T#7T 

O LFH=0,27501271+0.0281457S#T+0.O00001B8#T#T 

O LPH1=(0.0001727172#SIN(FERT) -0.000749065%#C0S (FERT) ) /EX 

LFH=LFH4LEHI 

AM=0, 149474995+57.968S7746#T-0.0000141#T#T 

O AM=AM+0.005784021#SIN(PERT)-LPHI 

O RETURN 

REM #####x constantes SATURNE #42 4644466 36 DH DH DH DE JE ÉD DE DE DE DRE DD DH DEDE DE DH DE DE DE DE DE DEN 

à FERT=0.7174007161#T+1.09421707 

D» AX=9.55490916-0. 0000021467 

D AX=AX+0, 00004 G#SIN(FERT) +0.002977#C0S (FERT) 
-0,055547995-7.466241E-04#T-0.000000644#T%7T 

EX=<EX-0.000797#SIN(FERT) +0,00174#COS (FERT) 

1C=0.0474:917-0.0000652#T-0.00000026#T#7T 

LNA=1.9878:726+0.01510807#T-0.00000712#T#7T 

LFH=1.62415929+0,074777645#T-0.0000146%T#T 

) LFH1=(0,001761#SIN(FERT) +0. 000807#C0S (FERT) ) /EX 

LFHELFH+LFHI 

AM=25.52202169+#71. 72002184 T+0.00001551#T#4T 

AM=<AM-0, Q14211#SIN(FERT) -0,000192#C0S (PERT) +0. 00014#SIN(2#FERT)-LFH1 

570 RETURN 

180 REM ####s###s##x CONSTANTES URANUS 4462662626 EDEN DE DÉHEDÉHEDE DD DD DEEE DD DE DE DEEE 

» FERI=-0.148577#1+5. 108041 


































AX-19.18445 IBE-08#1 
AX=AX-0,007824#C0S (FERT) 
Léu EX20,046181-0.,0000272814+0,000000077#T#7 
2610 EX<EX-0,00077S#SIN(FERT) +0.0021#C0S (FERT) 
DEAN LC-O, 01749840, 00001 281#714+0,000000654#7T#7T 
2650 LNA 0, 00909S%T +0. 00002248 T4#T 
6e LFH= QGAT#T+0.000002779%#71%7 
phil N D) +0, 000779#C0S (FERT) +0. 000105%#SIN(2%FERT))/EX 
LFH= 
AM-2.46177247.476601#1+0.00000182#T#1 





» AM=AMt 
» RETURN 
5 Him seen ONSTANTES NERF TUNER 2622626 DE DE DEEE DE DE DEEE DD DE DEEE DD ED DEEE ED DE DD EE 
2770 FERT 0.148: 


US INCFERT ) +0. 001471#C0S (FERT) +0. 00062B8*SIN(2*PERT) -LPH1 












au AX27%0,10957- 0, ‘ 
2750 AX=AXx+0.01058#C0S (FERT) 
Je rx s BUU9+0,0000064#7T 
27/0 EX=EX +0. 00044#SIN(FERT) +0. 000476#C0S (FERT) -0,006#C0S (2*FERT) 
2780 IU=0.0û 38%- 0, 0001625%T +0. 00000012%#7T*7T 
2790 LNA 066 +0, 0197184740. 000004542747 
800 LFHEU, 840409+0. 074862#T+0.00000657#T4T 
HALO LPFHI-A4, 19 16RSINCFERT) -4. 2667T#CDS (FERT) +1.047% (SIN(Z#FERT) -COS (2*FERT) ) 
Ur L FHELFH+0, OU) eLFHI/EX 
6 AM 4.479867 + 7.271027 7#T-0,00000118#T#7T 
HO AMSAM 0, ONU ZA TASIN(FERT) -0.000979#C0S (FERT) -0.000424#SIN(2#FERT) 
O AM=AM 0.600] sl FHi/EX 
RETURN 
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LA RÉTROGRADATION DES PLANÈTES 


Toutes les orbites planétaires sont parcourues dans le même sens, mais 
leur mouvement apparent, vu de la Terre, n'est pas toujours le même. 
Lorsqu'il semble qu’elles retournent en arrière dans le zodiaque, leur 
mouvement est appelé rétrograde, leur longitude géocentrique cesse de 
croître pour décroître. 

Il serait possible de calculer directement si une planète est rétrograde à 
un moment donné, mais les formules mathématiques sont assez compli- 
quées. 

Il est plus simple d'utiliser les lignes déjà tapées, et de calculer la 
position de la planète le lendemain du jour pour lequel on fait les calculs. 

C'est ce que font les lignes 3230 à 3340; avec un nouveau temps 


T'=T + ke. on recalcule la position du Soleil (ligne 3250) puis des 


planètes, et pour chacune d’entre elles on teste si la nouvelle longitude LR 
est inférieure à la longitude déjà calculée LP (IP), auquel cas le drapeau 
FRET (IP) est mis à 1. L'appel du sous-programme d'impression est alors 
mis dans cette deuxième boucle, ligne 3330. Il ne faut pas oublier de 
terminer la première boucle avec l'instruction NEXT IP, qu'il faut ajouter 
ligne 3220. 


F0 REM DOUBLE CALC FOUR SENS DU MUT 462626 060 DE DA GED D DE 0 DEEE 
Oo T=T+2.7378$E-05 

GOSUR 70 

Oo FOR 

Oo ON IF GOSUR 2050,2140,2220 

80 GOSUR 1070 

> GOSUR 1150 

GOSUER 1270 

O LR=LG#180/FI :RC=LR:GOSUR 1920: LR=RC 

IF LRÉLFCIF) THEN FRET(IF)=1 ELSE FRET(IF)=0 

GOSUR 70760 

D NEXT 


TEST DES POSITIONS PLANÉTAIRES 






2300,2440,2580,2720,2870 








Vos efforts vont commencer maintenant à porter leurs fruits. Il reste 
encore à compléter la routine d'impression des positions des planètes en 
20360, qui n’a pas encore été écrite. 


20360 REM %#3%3#3363#32%300% FOSITIONS FLANETES SUR ECRAN TEXTE 24626626 6 DD D DE DEEE DE DE DEEE DEN 


DER DE DEEE HD DÉCIDE ÉD DE DEEE DEEE DE DD HE DD DD DE 
RER DE DE DE DE DE DE DE DE DH DE DE ÉD DE DE DE DE DE DE DE DE DE 


202770 REM #%æ####3#mx% Les longitudes des planetes sont contenues dans un tableau 


9 REM intitule LPF(X) , X DE 1 A 10 

O REM La boucle d'impression fait partie du FGR appelant 
O0 REM L'indice de boucle est IF 

20410 REM VARIABLES UTILISEES : SI , LAS 

20420 IF NOT(flimp) THEN RETURN 

20430 SI=FNSI (LF CIF)) 

20440 LA NMI (FNLAS (LF (IF))) 

20450 IF FRET(IF)=0 THEN FRET#(IF)="" ELSE FRET#(IF)="R" 

20460 FRINT #1, USING FF#3;FL#(IF) ,LAS,FRET#(IF) ,SIGN# (SI); 

20470 RETURN 











43.2 


Pour obtenir une mise en page agréable, il est utile de définir un format 
d'impression. Cela est réalisé en 30230, les b minuscules indiquent des 
espaces. 


FP$ = “\bbbbb\b## - ##1b\bbbbbbbb\” 


La première zone du format contient le nom de la planète, la deuxième 
le degré dans son signe en degrés : minutes, la troisième contient un R au 
cas où la planète est rétrograde et la quatrième contient le nom du signe 
dans lequel elle se trouve. Le ! sert à imprimer le premier caractère d’une 
chaîne qui contient “R” si la planète est rétrograde. 

Nous pouvons alors écrire un programme de test qui permettra de faire 
apparaître sur l'écran la position du Soleil, de la Lune et des planètes pour 
n'importe quelle date entre le 1°" janvier 1800 et le 31 décembre 2199. 


50000 KEM TEST DES FOSITIONS FLANETAIRES 
50010 FLIMF=-1 
50020 GOSUE 









ECRAN TEXTE 

ENTREE DES DONNEES 
CALCUL DE T 

CALCUL DES FOSITIONS 
REM ATTENTE D'UNE TOUCHE 


50060 GOSUE 
50070 GOSUE 


6700 : 
50080 CLS #5 : CLS #1 


50690 GOTO 50040 
50100 END 
50110 END 


Comme dans le chapitre précédent, commencez par vérifier si vous 
n’avez pas fait de faute de frappe dans l’entrée des coefficients qui 
définissent les éléments des orbites en regardant ce qu’affiche votre 
programme lorsque vous lui donnez comme dates d’entrée le 1° janvier 
2000 à 12 h, puis le 23 septembre 1921 à 3h 50. Voici les résultats que vous 
devez obtenir. 


23/09/1921 3.5 1/01/2000 12 

48.45 2.2 48.45 2.2 
SOLEIL 29.33 VIERGE SOLEIL 10.23 CAPRICORNE 
LUNE 7.47  GEMEAUX LUNE 13.19  BCORPION 
MERCURE 21.23 BALANCE MERCURE 1.54  CAPRICORNE 
VENUS 26.23 LION VENUS 1.35  BSABITTAIRE 
MARS 2.20 VIERGE MARS 27.58  VERSEAU 
JUPITER 29.22 VIERGE JUPITER 25.19  BELIER 
SATURNE 28.14 VIERGE SATURNE 10.21 TAUREAU 
URANUS 6.47  POIB8ONS URANUS 14.50  VERSEAU 
NEPTUNE 13.24 LION NEPTUNE 3.12 VERSEAU 
PLUTON 9.46 CANCER PLUTON 11.27  SABITTAIRE 
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LA DOMIFICATION 


Le calcul de la position des planètes, en astrologie, considère le ciel 
comme identique pour tous les points de la Terre, prise comme centre de 
l'univers. La détermination de la position des pointes des maisons, 
deuxième étape de l'érection d’un thème, place l’observateur au centre du 
système de référence. Le système de coordonnées angulaires qui 
détermine les maisons est fixé à chaque point du globe. 

La tradition astrologique divise la sphère céleste locale, mue par le 
mouvement diurne, d’abord en deux hémisphères séparés par l'horizon. 
L'intersection de l’écliptique avec l'horizon côté Est détermine 
l’'Ascendant. Il figure le point du zodiaque où se lève le Soleil, la direction 
locale de l'Est. A l'opposé se trouve le Descendant, point où se couche le 
Soleil, direction de l'Ouest (Figure 4.1). 

Le méridien du lieu divise la sphère céleste en deux autres parties. Son 
intersection avec l'écliptique détermine la direction du Sud, qui est le point 
où se trouve le Soleil quand il est midi vrai sur ce méridien, ce point est le 
milieu du ciel; diamétralement opposé se trouve le fond du ciel. 

Cette division en quatre quadrants est commune à tous les systèmes de 
domification, qui diffèrent par la manière de diviser en trois parties chacun 
de ces quadrants. 


Zénith 


/ Ouest 


Nord 


Méridien 


du lieu 






Horizon 


Est 


Figure 4.1. 
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ORGANISATION DES CALCULS 


Dans le programme, nous calculerons d’abord l’ascendant (maison I) et 
le milieu du ciel (maison X) à partir du temps sidéral de l'heure de 
naissance et de la latitude du lieu de naissance. Nous calculerons ensuite 
les pointes des maisons XI, XII, II et III pour le système de domification 
de Placide, le plus couramment employé. Nous donnons dans le 
Chapitre 13 la manière d’adapter le programme à d’autres systèmes de 
domification usuels, ceux de Montroyal et de Campanus. Les pointes des 
autres maisons se déduisent ensuite dans tous les cas en prenant l'opposé 
des précédentes. 

Les pointes des maisons sont rangées en degrés dans le tableau LM (I), I 
variant de 1 à 12. Pour la détermination ultérieure des aspects, on range 
également l’ascendant et le milieu du ciel dans le tableau LP, comme 
onzième et douzième éléments. 

Les noms des maisons sont rangés dans le tableau de chaînes de 
caractères MAIS$. II faut commencer par déclarer ces deux tableaux en les 
ajoutant ligne 30020, puis on initialise les noms des maisons en ajoutant les 
lignes 30130-30160 au sous-programme d'’initialisation. 


1020 DIM SIGN# (12) ,JOUR (12) ,LF (12) ,MAISS# (12) ,LM(12) 
OO REM #46 ue MAISONS ue ee ee De ee 

0140 REM 

0150 DATA AS,11,111,FC,V,VI,DS,VIII,IX,MC,XI,XII 
"O160 FOR Ii TO 12:READ MAIS#(I):NEXT 


DÉTERMINATION DE L'ASCENDANT 
ET DU MILIEU DU CIEL 


Pour un temps sidéral TX et une latitude LAD, tous deux en radians, la 
longitude ASD de l’ascendant sur l’écliptique est donnée par: 


_ cos (TX) 
sin e* tg(LAD) + cos € * sin (TX) 





te (ASD) = 


€ étant l’inclinaison de l’écliptique, soit 23° 27’. Le signe de cos (ASD) est 
l'inverse de celui du dénominateur TAS de l'expression ci-dessus, il faut 
donc ajouter x à ASD si celui-ci est positif (ligne 1620). 

Le calcul de l’ascendant est effectué par le sous-programme en 
1570-1630, qui a pour variables d’entrée le temps sidéral TX et la latitude 
LAD et qui donne en sortie la longitude de l’ascendant ASD. 


= 47. 


1670 REM ASCENDANT 
480 TX=TSRD 
430 LAD=I AT 
/00 GOSUER 1570 
10 KRC=<ASD#180/FI : GOSUR 1920 : LM(1)=RC:LP (11) =RC 
1910 RETURN 


Le milieu du ciel (direction du Sud) est indépendant de la latitude et ne 
dépend que du temps sidéral. Sa longitude sur l’écliptique MC est donnée 


par: 


_ t& (TX) 
8 (MC) = os € 

Dans le programme, on calcule directement ligne 1800 l’angle RC, qui 
est le milieu du ciel en degrés correspondant au temps sidéral TSRD, en 
ajoutant 180° si le cosinus de TSRD est négatif (ligne 1810), puis en 
recadrant si nécessaire entre 0 et 360° (ligne 1820: appel du sous- 
programme de recentrage en 1920). 

Le résultat est rangé dans LM (10) et LP (12), puis son opposé, qui 
correspond au fond du ciel (maison IV) est rangé dans LM (4) après 
recentrage entre 0 et 360° (ligne 1830). 


1BO0 RC<ATNC(TAN(TSKD)/0.917408) #180/FPI 

1810 IF COS(tsrd):0 THEN re=rc+180 

1B20 GOSUR 1920 

HO LMOHO)=-RC:LF (12) =RC:RC=RC+180:GOSUR 1920:LM(4)=RC 





MÉTHODE DE PLACIDE 





Ce système de domification consiste à diviser en trois parties égales l’arc 
du mouvement apparent du Soleil entre l’Est et le Sud (maisons XI et XII) 
et entre le Nord et l’Est (maisons II et III) et à calculer la longitude 
écliptique des points correspondants. Cela n’est pas possible au-delà des 
cercles polaires, les tables de domification s’arrêtant à une latitude de 66° 
nord ou sud. 

Dans la pratique, on se ramène pour chaque pointe de maison au calcul 
d'un ascendant pour une nouvelle latitude et un nouveau temps sidéral, 
fonctions de la latitude et du temps sidéral de la naissance et de la maison 
considérée, selon le tableau suivant: 
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Maison Nouvelle latitude — Nouveau temps sidéral TS’ 
“tn Arctg È té) TS-4h 
XII Arctg É té) TS-2h 
Î Arctg Ê 16) TS+2h 
Il Arctg É -tg 4) TS+4h | 








Le programme utilise une boucle d’indice JP, de 1 à 4 correspondant aux 
maisons d'indice KP, dans l’ordre XI, XII, II, IT ; le passage de JP en KP 
se fait ligne 1740. 

Le temps sidéral TSRD devient TX 


TX = TSRD + ( SR LINT 5) 


PL 
6 


La nouvelle latitude LAD se calcule aisément 


TAN (LAT) * PLAC _ 


LAD = ATN 3 


grâce au tableau de DATA PLAC(I) rangé en fin de programme, lignes 
30430 à 30460, qu'il faut ajouter au module d'’initialisation : 








SO430 REM #########x TABLEAU POUR DOMIFICATION #22 264644064626 2646 De DE DE DE 2 
30440 REM PLACIDE 

20450 DATA 1,2,2,1 

70460 FOR 1=1 TO 4 : READ PLAC(I) : NEXT 


Il suffit ensuite d'appliquer le sous-programme de calcul de l’ascendant 
et de ranger le résultat, converti en degrés et recentré entre 0 et 360°, dans 
le tableau des maisons, en LM (KP). 
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1720 REM MAISONS 11,12,2,3 

1710 FOR JF=1 TO 4 

1/40 KP=JP+10-11#INT(JP/3) : REM TRANSF 1,2,3,4 EN 11,12,2,7 
1750 TX=TSRD+(JP-T+INT(JF/3))#P1/6 

1760 LAD=ATN(TAN(LAT) #PLAC (JF) /3) 

1770 GOSUB 1570 

1780 RC=ASD#180/FI : GOSUR 1920 : LM(CKF)=RC 

1790 NEXT 





PROGRAMME DE DOMIFICATION 





Le programme connaît en entrées le temps sidéral en radians TSRD et la 
latitude en radians LAT. 

On calcule d’abord l’ascendant (lignes 1670-1710), qui est converti en 
degrés et rangé dans LM(1) et LP (11), puis les pointes des maisons XI, 
XII, IT et IT (lignes 1720-1790), le milieu du ciel et le fond du ciel (lignes 
1800-1830), rangés respectivement dans LM(10) et LM(4), ainsi que 
LP (12) pour le milieu du ciel. 

Il reste ensuite à ranger dans LM (7) à LM (9) les pointes des maisons 
VII à IX, qui sont à l’opposé des maisons I à II (lignes 1840-1860), et dans 
LM (5) et LM (6) les pointes des maisons V et VI, à l’opposé des maisons 
XI et XII (lignes 1880-1890). 

Les résultats sont ensuite imprimés, maison par maison, par l’intermé- 
diaire du sous-programme en 20480. 


1840 FOR JF= 1 TO TZ 

#50 RC=LM(JF) +180: GOSUR 1920 : LM(JPF+6) =RC 
360 NEXT JF 

1470 FOR JF=11 TO 12 

1880 RC=<LM(JP)+180: GOSUR 1920 : LM(JP-6) =RC 
190 NEXT JF 

1900 FOR IMz1 TO 12 : GOSUR 20480 :NEXT 





TEST DE LA DOMIFICATION 


Comme pour les planètes, il faut d’abord entrer en mémoire la routine 
d'impression qui se trouve en 20480: 


20480 REM #*#######x FOSITIONS DES MAISONS SUR ECRAN TEXTE #44 362-4660 D DEEE DE JE JE 
RONRRRNRNUNOUNONUNEUNUN NOMME MD DE ME Hé D DD DE DE D D 

LRLLLLL LL LL LL LL LL 2 22122: :) 

0490 SI=FNSI (LM(IM)) 

O LAS=FNMI (FNLAS (LM(IM))) 

2 DO PRINT#2,USING FM#:;MAIS#(IM) ,LAS,SIGNS$ (SI) 

20520 RETURN 






Elle est semblable à celle de l’impression des planètes, mais elle utilise 
un format différent, FM$, défini ligne 30250 : 
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FM$="\bb\bbbb## : ##b\bbbbbbbb\ " 


La première zone du format contient le nom de la maison, la deuxième 
le degré dans son signe en degrés-minutes et la troisième le nom du signe. 

Le programme de test ressemble beaucoup à celui qui a été écrit pour le 
chapitre précédent. Remarquez ligne 1460 le calcul du temps sidéral qui 
n'était pas nécessaire pour calculer la position des planètes, l'appel du 
programme de domification ligne 50070 et la remise à zéro de la deuxième 
fenêtre au lieu de la première, ligne 50090. 


50000 REM TEST DE DOMIFICATION 
GOSUR 230000 

GOSUB 25000 : 
GOSUR 20570 : 
50 GOSUR 21050 : 
60 GOSUE 1460 : 






REM ECRAN TEXTE 

REM ENTREE DES DONNEES 
REM CALCUL DE T 

PEM CALCUL DU T.S. 

O : REM DOMIFICATION 

50080 GOSUR 30700 : REM ATTENTE D'UNE TOUCHE 
50090 CLS #5 : CLS #1 

50100 GOTD 50040 

50110 END 


23/09/1921 3.5 
1/01/2000 12 
10.45 2.2 48.45 2.2 
' ‘ AS 9.06 VIERGE 
AS 26.40 BELIER 
Il 1.03 BALANCE 
Il 1.23 GEMEAUX 
111 29.03 BALANCE 
111 22.50 GEMEAUX 
FC (1,46 CANCER FC 3.19 SAGITTAIRE 
V 9.45 CAPRICORNE 
V 2.45 LION 
VI 12.21 VERSEAU 
VI 2.44 VIERGE 
DS 9.06 POISSONS 
DS 26,40 BALANCE 
VIII 1.03 BELIER 
VIII 1,23 SAGITTAIRE 
IX 29.03 BELIER 
IX 22.50 SAGITTAIRE 
MC 3.19 GEMEAUX 
MC 11.486 CAPRICORNE 
XI 9.45 CANCER 
XI 2.45 VERSEAU XII 12.21 LION 
XII 2.44 POISSONS 
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LES ASPECTS 


Astrologiquement, deux planètes forment un aspect lorsque la différence 
entre leurs longitudes respectives est égale à une valeur particulière. 

Les aspects dits majeurs sont au nombre de cinq et correspondent (quant 
aux différences de longitude) aux valeurs suivantes : 


Angles Aspects 
0 degré Conjonction 
60 degrés Sextile 
90 degrés Carré 
120 degrés Trigone 
180 degrés Opposition 


Il est rare que l'angle entre deux points du thème soit exactement égal à 
0, 60, 90, 120 ou 180 degrés : aussi associe-t-on à chaque type d'aspect un 
paramètre appelé orbe. Si la différence de longitude entre deux planètes 
est inférieure (ou égale) à la somme de la valeur théorique de l’aspect et de 
l'orbe, on estime alors que les deux planètes forment l'aspect considéré. 
L'influence de l'aspect sera d’autant plus sensible que la différence 
angulaire entre ces deux planètes se rapprochera de la valeur théorique de 
l'aspect en question. Le tableau ci-dessous donne les valeurs des orbes 
communément admises pour les aspects majeurs : 


Conjonction 12 degrés 
Sextile 4 degrés 
Carré 6 degrés 
Trigone 7 degrés 
Opposition 12 degrés 


Trois tableaux indicés sont utilisés pour la recherche des aspects. 


ASMA (Ï) contient (exprimées en degrés) les valeurs angulaires des 
aspects majeurs. 


ASMAS$ (I) contient les noms de ces aspects. 


OMA (1) contient les valeurs des orbes. 


Ces tableaux sont initialisés de la façon suivante : 


30480 REM #####æ#m# ASPECTS MAJEURS #44 04-06 34 DH ED DD DEN GENE DD DE DE DÉ DE DE DE EDEN 
10490 DATA 0,60,90,120,180 

0500 DATA CONJONC,SEXTILE ,CARRE, TRIGONE ,OFPOSIT 

70510 DATA 12,4,6,7,12 

2 O FOR I=1 TO S 

:0S30 READ ASMA(I) : NEXT 





20540 FOR I=i TO 5 

10550 READ ASMA#(I) : NEXT 
20560 FOR 1=1 TO 5 

30570 READ OMA(I) : NEXT 


sua 


On utilise également un tableau de travail WORK de 90 éléments qu'il 
faut déclarer ligne 30020 ; celle-ci devient : 


30020 DIM SIGNS (12),JOUR(12), LP(12).MAIS$(12),LM(12), WORK(90) 


Concernant la sortie des résultats, il est utile de définir un format 
d'impression permettant une mise en page agréable. Cela est réalisé en 
30270. Les b minuscules indiquent des espaces. 


30270 FA$="“\bbbbb\b\bbbb\b\bbbbb\b##" 


Les deux premières zones du format recevront les noms des planètes en 
aspect, la troisième le nom de l'aspect et la dernière la différence entre 
l'aspect exact et l’aspect existant, exprimée en degrés. 

On définit de la même façon un format destiné à une éventuelle 
imprimante. Si votre système n’en est pas muni, vous pouvez omettre la 
ligne suivante. 


30330 FPR3$="“bbbbbbbb\bbbbb\b\bbbb\b\bbbbb\b##" 


RECHERCHE D'UN ASPECT ENTRE DEUX POINTS 





La recherche des aspects intervenant dans différents contextes (thème 
natal, transits, comparaison de thèmes), il est utile d'écrire un sous- 
programme, situé des lignes 1950 à 2040, qui détermine si entre deux 
points quelconques il existe un aspect. 

En entrée, la variable ANG contient l'angle, mesuré en degrés, qui 
sépare ces deux points. 

En sortie, la variable ASP indique par un chiffre compris entre 0 et 5 la 
présence et le type de l’aspect détecté. Si ASP = 0, il n'existe pas d’aspect 
majeur entre les deux points étudiés. Sinon ASP est utilisé comme indice 
pour accéder aux éléments du tableau ASMA$ qui délivre le nom de 
l'aspect détecté. 

Les deux premières lignes actives ramènent la valeur de la variable ANG 
entre 0 et 180 degrés. 


1950 REM *%#%#%##% DETERMINE 1 ASFECT MAJEUR #24 42262666 DE HD HD DH DEN 
END DE HE HEC HD HE HE EE DE DE 

DE DIE DD DRE DEEE DE DD DE DE DE DEEE DE DE DIE 

1960 REM ENTREE= ANGLE ENTRE 2 FTS ( ANG ) 

1970 REM SORTIE NUMERO DE L'ASPECT , © SINON ( ASP ) 


1980 ANG=ABS (ANG) 
1990 IF ANG>180 THEN ANG=360-ANG 


— 55 — 


On initialise ensuite ASP à 0. 
2000 ASP=0 


Enfin une boucle compare la valeur de ANG aux valeurs théoriques des 
différents aspects, en tenant compte de leurs orbes respectifs. La sortie 
s'effectue soit après détection d’un aspect (sans terminer la boucle) soit en 
fin de boucle dans le cas où aucun aspect n’a été trouvé. 


2010 FOR AI= 1 T0 5 

2020 IF ANG:ASMA(AI)+OMA(AI) AND ANG>ASMA(AI)-OMA(AI) THEN ASP=AI : RETURN 
2070 NEXT 

2040 RETURN 


LES ASPECTS DANS LE THÈME NATAL 


La première ligne du programme teste la variable MG. Si MG vaut 0, 
l'affichage s'effectue en mode texte ; la fenêtre contenant les aspects est 
alors nettoyée. En effet, compte tenu de la rapidité de calcul des aspects, il 
est préférable de les recalculer pour chaque type d'affichage (texte ou 
graphique) plutôt que de consommer de la mémoire en les stockant en 
tableaux. 


3530 REM RECHERCHE DES ASPECTS (THEME NATAL) #rrremmenex 
3540 IF MG=0 THEN CLS #3 


Ensuite on initialise le tableau de travail WORK (1) en y rangeant les 
longitudes des dix planètes, de l’ascendant et du milieu du ciel. Le pointeur 
CPTA (compte des aspects) est initialisé. Il permettra d’éviter un 
défilement intempestif sur l’écran. 


8550 FOR AJ=1 TO 10 : WORK(AJ)=LP(AJ) : NEXT 
3560 WORK (11)=LM(1) WORK(12)=LM(10) : CPTA=1 


La ligne 3570 n'est utile que si votre système dispose d’une imprimante. 
Dans ce cas, elle imprime une ligne de titre si le drapeau FLPRT a une 
valeur logique vraie. FLPRT est positionné lors du choix des options dans 
le menu principal. 


38570 IF FLPRT THEN PRINT#8,“":PRINT#8,STRINGS(33,42) 
+" ASPECTS “+STRING$(38,42):PRINT #8," 
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La recherche proprement dite s'effectue alors dans une double boucle 
qui compare la longitude de chaque élément à celles de tous les éléments 
suivants dans le tableau WORK. Le compteur CPTA est incrémenté à 
chaque nouvel aspect (ligne 3630). Quand 24 aspects ont été affichés, 
CPTA est réinitialisé et le programme attend que l'utilisateur presse une 
touche pour poursuivre la recherche (appel de la routine en 30700 ligne 
3680). 

Notez en ligne 3640 l’utilisation de variables logiques pour afficher 
l’ascendant (MAIS$ (1)) et le milieu du ciel (MAIS$(10)). En effet, si 
l'indice AK est supérieur à 10, un de ces deux points doit être affiché. 
L'expression (AK = 11) vaut —1 si AK=11 et O0 sinon. De même 
(AK = 12) vaut — 1 si AK = 12 et 0 sinon. 

On constate facilement que l’expression 


((AK = 11)* (— 1) + (AK = 12)*(— 10)) 


vaudra 1 si AK = 11 (cas de l’ascendant), 10 si AK = 12 (cas du milieu du 
ciel). Les lignes 3690 à 3710 peuvent être omises en l’absence d’impri- 
mante. La variable logique FLIP change d'état à chaque impression et 
permet d'imprimer deux aspects par ligne. 

La ligne 3650 effectue de nouveau un test sur MG. Si MG est nul, on 
saute à la ligne 3670 (cas de l'affichage des aspects en mode texte). Dans le 
cas contraire, on exécute une routine située en 3750, qui se charge du tracé 
des aspects sur la carte du ciel en mode graphique. Cette routine sera 
décrite dans le chapitre concernant la présentation du thème natal. 


:580 FOR AJ= 1 TO 11 











1590 FOR AK= AJ+1 TO 12 

1600 IF AJ:=11 THEN RETURN 

610 ANG=WOKE (AK) -WORF. (AJ) 

620 GOSUR 1950 

610 1F ASF=0 THEN 3720 ELSE CFTA=CFTA+1 

IF AF:=11 THEN WK#=MAIS#((AK=11)#(-1)+(Ak=12)#(-10)) ELSE WK#$=FLS# (AK) 

3650 IF MG=<0 THEN 37670 

2660 GOSUR 5750 : GOTO 3720 
3670 PRINT #3 , USING FA#$ ;FL#(AJ) ,ASMA# (ASF) ,WK 4, ABS (ANG-ASMA (ASP) ) ; 
3680 IF CFTA MOD 24 =0 THEN C=S : GOSUE 20700 
3690 IF NOT(FLFRT) THEN 3720 
3700 IF NOT(fl11p) THEN FRINT #8,USING FPFR3$:PL4# (AJ) ,ASMAS (ASF) ,Wr#, ABS (ANG-ASM 
ACASF))3;:#f1ip=NOT(flip):GOTO 5720 

1710 FRINT#S,STRINGS (7,12): :FRINT #8,USING FFRI#;FL# (AJ) ,ASMAS (ASF) ,WK#, ABS (AN 
G-—ASMA (ASF) ):#1ip=NOT(flip) 

: NEXT AH 

A NEXT AJ 

2740 RETURN 





TEST 





Le programme ci-dessous vous permettra déjà d'obtenir les principaux 
éléments d’un thème. puisque vous verrez affichés la position des planètes, 
les maisons et les aspects majeurs : 
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S0000 REM TEST DES ASFECTS 
50020 GOSUR 70000 
SO00Z0 GOSUR 25000 : REM ECRAN TEXTE 








O GOSUB 70570 : REM ENTREE DES DONNEES 
22050 GOSUE 21050 : REM CALCUL DE T 
1060 GOSUR 1460 : REM CALCUL DU T.S. 


50070 GOSUR 1650 : REM DOMIFICATION 
1080 FLIMF=-1 

50090 G : REM FOSITIONS FLANETAIRES 

È : REM ASFECTS 

: REM ATTENTE D'UNE TOUCHE 





oO CLS #5 
=0 GOTO 50040 
) END 





TEST DES ASPECTS AU 23/09/1921 3H50 


RAR RURRUUNUUUNRRRRRUURREEE ASPECTS AU UAUUUUEUEUEAUEUEUE HUE UNE NE UMR 


SOLEIL CONJON JUPITER O0 SOLEIL CONJON SATURNE 1 
SOLEIL TRIGON MC 4 LUNE CARRE MARS 6] 
LUNE CARRE  URANUS l LUNE CARRE AS Î 
LUNE CONJON MC VENUS  CONJON MARS 6 
VENUS  OPPOSI URANUS 1 VENUS  CONJON NEPTUNE 11 
MARS OPPOSI URANUS MARS CONJON AS 7 
MARS CARRE MC JUPITER CONJON SATURNE 1! 
JUPITER TRIGON MC SATURNE TRIGON MC 5 
URANUS TRIGON PLUTON URANUS OPPOSI AS 2 
URANUS CARRE MC PLUTON SEXTIL AS 1 


AU E © +» 


- 58 — 


LES RÉPARTITIONS PLANÉTAIRES 


Les douze signes zodiacaux peuvent se regrouper suivant divers 


systèmes. 


1. Le binaire 


Signes masculins 


Signes féminins 


2. Le ternaire 
Signes cardinaux 
Signes fixes 


Signes mutables 


3. Le quaternaire 
Signes de feu 
Signes de terre 
Signes d'air 


Signes d’eau 


Bélier, Gémeaux, Lion, Balance, Sagittaire et 
Verseau. 


Taureau, Cancer, Vierge, Scorpion, Capri- 
corne et Poissons. 


Bélier, Cancer, Balance et Capricorne. 
Taureau, Lion, Scorpion et Verseau. 


Gémeaux, Vierge, Sagittaire et Poissons. 


Bélier, Lion et Sagittaire. 
Taureau, Vierge et Capricorne. 
Gémeaux, Balance et Verseau. 


Cancer, Scorpion et Poissons. 


Chacune des catégories présentées ci-dessus possède des caractéristiques 
qui lui sont propres. C'est le nombre de planètes présentes dans chaque 
catégorie qui indiquera si la personnalité du sujet est marquée ou non par 
les caractéristiques de la catégorie en question. 

Avant de passer à la programmation du calcul des répartitions, nous 
dresserons une brève liste des différentes caractéristiques. 


Signes masculins 
Signes féminins 
Signes cardinaux 
Signes fixes 
Signes mutables 
Signes de feu 
Signes de terre 
Signes d'air 
Signes d'eau 


Activité, extériorisation. 
Passivité, intériorisation. 


Action et mouvement. 
Stabilité et fermeté. 
Souplesse et adaptation. 


Enthousiasme, activité. 

Prudence, esprit pratique et réalisateur. 
Intelligence et réflexion. 

Imagination, émotion. 
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Le but du présent sous-programme est donc de calculer combien de 
planètes se trouvent dans chacune des neuf catégories décrites. 








PROGRAMMATION 





0780 REM ##3#3#3%3%3%% CALCUL/IMFRESSION DES REFARTITIONS m0 0060 0 006 06 0600 0 De De 06 0e ne 


0790 REM Les positions planetaires sont contenues en LF(I) 
LUOO REM VARIABLES IR,MASC,FEM,CARD,FI ,MUT ,FEU,TERRE ,AIR,EAU 
1810 MASC=Q :FEM=O : CARD=O : FI=0 : MUT=0 

820 FEU=O : AIR=O : TERRE=O : EAU=0 


20830 FOR IR =1 TO 10 

20840 SI=FNSI (LF(IR)) 

20850 IF SI MOD ? = © THEN FEM-FEM+1 ELSE MASC=MASC+1 
20860 AIG=SI MOD 3 

20870 ON AIG+1 GOSUR 21000,20980,270990 

20880 AIG=SI MOD 4 





O ON AIG+1 GOSUR 21040,21010,71020,271070 
O0 NEXT 
O PRINT #4 ,RF#(1)3"  ":;MASC :FRINT #4 ,RF#(2)3:" “"3FEM : FRINT #4 





O FRINT #4 ,RF#(I) 3" "s CARD :FRINT #4 ,RF#(4)3" "sFI 2FRINT #4 ,RFS#S(S) 
3 “£MUT 
20930 PRINT #4 : FRINT #4 ,RF#(6)3" Mi TERRE: PRINT #4 ,RP#(7)3" “AIR 
20940 FRINT #4 ,RF#(8);" "EAU: FRINT H4,RFE (9): “3 FEU 


20950 IF FLFRT THEN GOSUR 20190 

20960 RETURN 

20970 REM SSF INTERNES AU CALC DES REFARTITIONS»*# 
20980 CARD=CARD+1 : RETURN 


20990 FI=FI+i 3 RETURN 
21000 MUT=MUT+1 : RETURN 
21010 FEU=FEU+1 : RETURN 
21020 TERRE=TERRE+ 1: RETURN 
21030 AIR=AIR+1 : RETURN 
21040 EAU=EAU+1 : RETURN 


Quelques remarques sur le fonctionnement de ce sous-programme. 


Ligne 20810-20820 


Les variables qui contiendront le nombre de planètes appartenant à 
chaque catégorie sont initialisées à 0. 


Ligne 20830 


Début de la boucle déterminant pour chaque planète à quelle catégorie 
elle appartient. 


Ligne 20840 


Détermination du signe astral qu’occupe la planète. 


Ligne 20850 


Masculin ou féminin ? 


Lignes 20860-20870 
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Cardinal, fixe ou mutable? La variable AIG sert uniquement à 
s'aiguiller vers un des (mini) sous-programmes de comptage par catégorie. 


Lignes 20880-20890 


Feu, terre, air ou eau ? Même remarque que ci-dessus. 


Ligne 20900 


Fin de la boucle de recherche. 


Lignes 20910 à 20940 


Présentation des résultats à l’écran. 


Ligne 20950 

Teste FLPRT et aiguille vers 20190 dans le cas où l’on souhaite une 
impression sur papier. 
Ligne 20960 


Retour au programme appelant. 


Lignes 20970 à 21040 


Routines internes de comptage par catégorie. 


Vous avez dû noter (20910 à 20940) la présence d’un tableau RP$ (I). 
Comme il ne comporte que neuf éléments, il n’est pas nécessaire de le 
dimensionner. Il faut toutefois l’initialiser de la façon suivante : 


10170 REM ###wæmummues REPARTITIONS #34363226 0606232 

20180 REM 

30190 DATA MASCULINS,FEMININS ,CARDINAUX ,FIXES , MUTABLES 
30200 DATA TERRE ,AIR,EAU,FEU 

30210 FOR I=i TO 9:READ RP#(1):NEXT 





IMPRESSION 


La routine assurant la sortie des répartitions sur l’imprimante se passe de 
tout commentaire. 


REM IMPRESSION DES REPARTITIONS #2 26 44-36 26-36 36 DEEE JE DEEE DH DE DD DE DIE DEEE 





O PRINT#B,CHRS# (12): PRINTHB,STRING#(235,42)+" REFARTITIONS "4STRING# (33,42) 
O S$=STRINGS# (20,32) 

FRINT#8,"" 
O PRINT#8,S#+"SIGNES MASCULINS : ";MASC 


6212 


20240 





FRINTHS,S#$+"SIGNES 


PRINT#8,"" 


PRINT#8,S#+"SIGNES 
FRINTH#8,S#t+"SIGNES 


PRINTHB,S#+ 


PRINT#8,"" 


"SIGNES 


FRINT#S,S#$+"SIGNES 
FRINT#S,S#$+"SIGNES 
FRINT#8,S#+"SIGNES D'AIR 
PRINT#8,S#+'"SIGNES D'EAU 


FEMININS : 


CARDINAUX 
FIXES 
MUTABLES : 


DE FEU 
DE TERRE 





"3: FEM 


3 CARD 


"FI 
“3 MUT 


"3 TERRE 





TEST 


"3 EAU 
PRINT#8,"":FRINTRB,STRING# (80,47) 
RETURN 


FEU 


AIR 


Le programme ci-dessous vous permettra de tester le sous-programme 
de calcul des répartitions. 


50000 





50050 
50060 

10070 
50080 
50090 
50100 
50110 
50120 
50130 
50140 
50150 


LILLILL EN IE LLLLILLLELLLLEELLL ES] 


REM TEST DES FTS FICTIFS 





GOSUR 3000 
GOSUR 25000 
GOSUE 20570 
GOSUER 21050 
GOSUER 1460 
GOSUB 1650 
FLIMP=-1 
GOSUR Z110 
GOSUB 2:5:0 
GOSUB 20800 
GOSUB 30700 








CLS #5 
GOTO 50040 
END 


REM E 


REM C 


: REM D 


: REM FOSITIONS FLANETAIRES 


REM A 
REM 


CRAN TEXTE 


ALCUL DE T 


OMIFICATION 


SFECTS 


REM CALCUL DU T.S. 


REFARTITIONS 


TEST DES REPARTITIONS 23/09/1921 


HEURE T.U 3.5 LONG. 


2.2 LAT. 


48.45 


REM ENTREE DES DONNEES 


REM ATTENTE D'UNE TOUCHE 


THEME NATAL 


CELLES LILI I SLI LL LE LL LLLEE EE EE] 


HRRRRRRRRERÉRRRSÉHÉEESSESSERRESESE REPARTITIONS #44 4 DDR RD RR RU RU RRRRRRREE 


SIGNES 
SIGNES 


SIGNES 
SIGNES 
SIGNES 


SIGNES 
SIGNES 
SIGNES 
SIGNES 


MASCULINS 
FEMININS 


CARDINAUX 
FIXES 
MUTABLES 


DE FEU 
DE TERRE 
D'AIR 
D'EAU 
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4 
6 
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LES POINTS FICTIFS 


Les astrologues appellent points fictifs des points qui ne sont pas 
matérialisés comme les planètes, mais qui jouent cependant un rôle 
analogue à celles-ci dans l'interprétation d’un thème. 

Nous en calculerons trois, les plus souvent utilisés ; il en existe d’autres 
que vous trouverez dans le Chapitre 13 si vous souhaitez les incorporer à 
votre programme. 





LES NŒUDS DE LA LUNE 





L'orbite lunaire et ses pôles tournent autour d’un axe dans le sens 
rétrograde, de sorte que sur l’écliptique chaque nœud va au-devant du 
Soleil, mettant 18 ans 219 jours environ pour décrire l’écliptique (ce temps 
est appelé révolution draconitique). 

La longitude moyenne du nœud ascendant LNAS est donnée par: 


LNAM = 2.182 4392 — 33.757 0446 * T + 0.000036 *T *T 


A cette longitude moyenne s'ajoutent des perturbations, la principale 
étant due à une force perpendiculaire au plan contenant les centres du 
Soleil, de la Terre et de la Lune ; elle a une amplitude de 1°31’ et un 
argument égal au double de la différence F — D entre la longitude du Soleil 
et celle du nœud ascendant, ce qui conduit à ajouter un terme en 
sin2(F— D). 

Notons que cette formule donne à 15’ près le même résultat que les 
éphémérides rosicruciennes et les tables Chacornac, mais qu’elle diffère de 
un degré et demi environ des Deutsche Ephemeride (qui n’indiquent 
vraisemblablement que la longitude moyenne). 

Nous n'expliciterons pas le calcul de la position du nœud lunaire 
descendant, qui est l'opposé du nœud ascendant. 


3080 LNAM=2.1824392-—33.7570446:T +0.000036*T*T 
3085 LNAS=LNAM+0.026470826:SIN(2:(F —D)) 





LA LUNE NOIRE 





C’est le deuxième foyer de l’orbite de la Lune, ou encore l’opposé du 
périgée de celle-ci par rapport à la Terre. L'utilisation de la Lune Noire, 
encore appelée Lilith, semble assez récente; elle a été longuement 
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développée ces dernières années par quelques auteurs qui considèrent que 
la Lune Noire nous sensibilise, selon le signe dans lequel elle se trouve, à 
des types de comportement que nous pouvons rechercher ou reproduire. 

Dans le plan de l'orbite lunaire, le périgée tourne dans le sens direct en 
8 ans 310 jours environ. Sa longitude moyenne est: 


LNPH = 1.454788 5 + 71.017 6866 *T — 0.000018 *T + T 


Le périgée est affecté d’une inégalité d’une amplitude de 5°48’ due à 
l’'évection, et dont l’argument est le double de la différence entre la 
longitude moyenne du Soleil et celle du périgée, ce qui fait rajouter un 
terme 0.1012291* SIN (2 (AM - LNPH)). Pour obtenir la longitude de la 
Lune Noire, il faut enfin ajouter x au résultat : 


3090 LNPH=1.4547885+71.0176866:T —0.000018:T+T 
8095 LILI=LNPH+P1+0.1012291*SIN(2*(AM-—LNPH)) 


LA PART DE FORTUNE 


L'origine exacte du système des Parts, largement utilisé par l'astrologie 
arabe, n’est pas très bien connue. Son emploi en Europe a toujours été 
limité et seule la Part de Fortune, déjà mentionnée par Ptolémée, a été 
communément acceptée. 

La Part de Fortune synthétise en un seul nombre deux données 
géocentriques: le Soleil et la Lune, et une donnée topocentrique : 
l’ascendant. Elle est en effet telle que son angle avec l’ascendant soit égal à 
l'angle de la Lune avec le Soleil, soit : 


Part de Fortune — Ascendant = Lune — Soleil 
par conséquent, avec les notations du programme : 
PF = LP (2) + LM (1) — LP (1). 


La Part de Fortune est considérée comme l'indication la plus 
caractéristique du type de personnalité qu’un individu — considéré comme 
un tout physique et psychique — peut réussir à développer et à projeter. 
Cette signification de la Part de Fortune doit inclure celle du Point 
d’Illumination qui lui est toujours opposé, et dont le lecteur calculera 
aisément la position s’il souhaite qu’elle soit affichée sur l’écran ou 
imprimée. 
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CALCUL ET IMPRESSION 





Le programme, lignes 3360-3520, calcule puis imprime successivement la 
position du nœud lunaire ascendant, de la Lune Noire et de la Part de 
Fortune et ne présente pas de difficultés particulières. Notons simplement 
ligne 3510 que, si le drapeau FLPRT est positionné, les calculs sont 
recommencés pour la sortie sur imprimante après l’affichage sur l’écran 
dans la cinquième fenêtre. 


INTS FICILRS 22626206 DD DE DE ADD DE DD DD DD DD DE DE DE DD DE HE DD DE DEN DEEE 











FOINFTS FICTIFS" : PRINT #C,"" 
) i UNAIRE ASC." 
: GOSUR 1970 
2LAS-FNMI (FNLAS (RC) ) 
NG #H## G G"3LAS,SIGN# (SI) 
ART DE FORTUNE" 
j-LF (1)  2RC=<FF: GOSUE 1930 





440 FHaUMCL)+LF CE 
450 SI=FNSI (RC) + LAS=FNMI (FNLAS (RO) ) 





460 FRINT 40, USING" #HOH# GC G'iLAS,SIGN# (SI) 
2470 FRINT #C, LUNE NOIRE" 

2480 KRC-1 ILIN1890/FI: GOSUH 1920 

490 SI-FNSI (RC) : LAS=FNMI (FNLAS (RC) ) 

da) FRINI AU, USING #HOH# 6 ç':LAS,SIGN# (SI) 
S10 IF FLFRI AND (C=5) THEN C=8 : GOTO 3790 

1520 KE TURN 


TEST 


Le programme ci-dessous vous permettra de tester le calcul des points 
fictifs : 


30000 REM TEST 
20 GUSUE 
oO GOSUR 
GOSUR 2! 


O : REM ECRAN TEXTE 

: REM ENTREE DES DONNEES 
10050 GUSUE : REM CALCUL DE T 

50060 GOSUE D : REM CALCUL DU T.S. 
00/0 GOÜSUE 1650 : KREM DOMIF ICATION 








LO00B80O FLIMF=-1 

50090 GOSUEH 7110 : REM FOSITIONS FLANETAIRES 
100 GOSUH ‘ét : REM FTS FICTIFS 

50110 GOSUE 10700 : REM ATTENTE D'UNE TOUCHE 


S0120 CLS #5 
50110 GOTO S004c 
50140 END 


TEST DES POINTS FICTIFS AU 23/09/1921 3H50 


NOEUD LUNAIRE ASC. 
18.05 BALANCE 
PART DE FORTUNE 
17.19 TAUREAU 
LUNE NOIRE 
13,14 VERSEAL 
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LE THÈME NATAL 


A ce stade du livre, votre programme est capable de réaliser tous les 
calculs élémentaires utiles en astrologie : recherche des positions plané- 
taires, des pointes des maisons, des points fictifs, des aspects et des 
répartitions planétaires. 

L'objet du présent chapitre est de réaliser l’interconnexion entre ces 
différentes fonctions et de présenter les résultats des calculs de manière 
agréable et pratique à l'usage. 

Concernant la présentation des résultats, deux modes complémentaires 
ont été prévus : 


Le mode texte 


Il permet à l'utilisateur d’avoir sous les yeux, sur une seule page écran, 
toutes les données utiles à l’érection d’un thème. 


Le mode graphique 


Il permet de dresser sur une page écran une carte du ciel selon la 
présentation circulaire traditionnelle, incluant planètes, maisons et 
aspects, tout en réservant une fenêtre de texte pour l'impression précise 
des longitudes. 


Lors de l'érection d’un thème, le programme affiche tout d’abord les 
résultats de ses calculs en mode texte et, sur demande, les transfère à 
l'imprimante. C’est seulement à ce moment que la carte du ciel peut être 
dessinée. Si l'option de dessin de carte graphique ne vous intéresse pas, 
vous pouvez vous dispenser d'entrer les modules correspondants. 





LE MODE TEXTE 





Nous avons déjà défini et entré en mémoire dans le Chapitre 2 les cinq 
fenêtres utilisées en mode texte, ainsi que le mode d'écran, les couleurs de 
fond, d'encre et de bord. 

Les lignes 25060 à 25330 ont pour fonction de tracer un cadre autour des 
fenêtres afin de clarifier la présentation. Notez l’usage de la fonction 
LOCATE et des caractères graphiques de l’ Amstrad. 

Prenez garde à la présence de points-virgules après certaines instructions 
PRINT, leur oubli risque de faire apparaître à l’écran des graphismes 
surprenants... 

Enfin, pensez à utiliser la procédure de copie de ligne de votre 
ordinateur. 
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25060 REM #######%#%% TRACE DU CADRE #32 262606 626 DE DD DH DE DE DD DD DD 
25070 REM ###%###%#%3%% HORIZONTALES 3626-4264 06 060 DE 6 D DE D DE DE DE 6 DE DE DE O6 D DE 
25080 FOR 1=1 TO 80: PRINT CHR$#(154) ::NEXT 

25090 LOCATE 1,12 

2S100 FOR 1=1 TO 27: PRINT CHR$(154) ;:NEXT 

25110 LOCATE 54,14 

25120 FOR 1=54 TO 80:PRINT CHR#(154) 3:NEXT 

25130 LOCATE 1,25 

25140 FOR I1=1 TO 80 :PRINT CHR#(154) ;:NEXT 

25150 LOCATE 1,1 

25160 FOR 1=1 TO 24 :PRINT CHR$(149) :NEXT 

25170 REM #########% VERTICALES HD DD HD DE DD DD DD DD DE ED DD DD D DE 
25180 FOR 1=1 TO 24:LOCATE 27,1 :PRINT CHR#(149) :NEXT 

25190 FOR 1=1 TO 24:LOCATE S4,1I :PRINT CHR$#(149) :NEXT. 

25200 FOR 1=1 TO 24:LOCATE 80,1 :FRINT CHR$(149) :NEXT 

25210 REM ####%#xxx INTERSECTIONS #22 26 606 06606 de de 60 06 6 6 60 6 
25220 LOCATE 1,1 : PRINT CHR$(150) 

25230 LOCATE 27,1 :PRINT CHR#(158) 

25240 LOCATE 54,1 :FRINT CHR#$(158) 

25250 LOCATE 80,1 :FRINT CHR#(156) 

25260 LOCATE 1,12 :FRINT CHR#(151) 

25270 LOCATE 27,12:PRINT CHR#(157) 

25280 LOCATE 54,14:FRINT CHR#(151) 

25290 LOCATE 80,14:PRINT CHR#(157) 

25300 LOCATE 1,25 :PRINT CHR#(147) 

25310 LOCATE 27,25:FRINT CHR$# (155) 

25320 LOCATE 54,25:PRINT CHR# (155) 

255330 LOCATE 80,2S:PRINT CHR$ (155) ; 


LE MODE GRAPHIQUE 








Ce mode permet, comme annoncé plus haut, de tracer une carte du ciel à 
l'écran, incluant planètes, maisons et aspects. Le tracé utilisant les 
symboles astrologiques traditionnels pour les signes et les planètes, la 
première opération sera de définir lesdits symboles. 

Rappelons que, sur Amstrad, les symboles graphiques utilisateur se 
définissent au moyen d’une grille 8 X 8. On calcule chaque ligne de la façon 
suivante : 

A chaque point de la ligne devant être allumé, on associe la puissance de 
2 correspondante (affichée en haut de la grille), puis on fait la somme des 
puissances relevées. Une fois les huit lignes de la grille calculées, une 
instruction SYMBOL, suivie du numéro du symbole et des huit nombres 
correspondants à chaque ligne, définit complètement le symbole gra- 
phique. 

SUN Lo+N- 


œ@ 
[l 
— 


Exemple : Vénus 





La suite définissant le symbole de Vénus est donc: 
0, 28, 54, 54, 28, 8, 28,8 


Les lignes 25420 à 25560 définissent les symboles des planètes, de 
l’ascendant et du milieu du ciel. La ligne 25430 indique à l’ordinateur que 
les symboles graphiques d’indices supérieurs à 200 sont redéfinis par le 
programme. 


25420 REM ####æxx DEFINITION DES PLANETES 462-3602 44062 D DEEE DD DE DE 
25430 SYMBOL AFTER 200 

25440 SYMBOL 200,0,24,60,102,102,60,24,0 
25450 SYMBOL 201,0,12,24,48,48,24,12,0 
25460 SYMBOL 202,54,28,54,54,28,8,28,8 
-5470 SYMBOL 203,0,28,54,54,28,8,28,8 
25480 SYMBOL 204,7,3,5,8,112,216,216,112 
25490 SYMBOL 205,32,80,84,20,36,68,126,4 
25500 SYMBOL 206,32,112,32,32,56,36,36,36 
25510 SYMBOL 207,68,84,124,84,84,16,56,16 
25520 SYMBOL 208,0,84,84,56,16,56,16,16 
25530 SYMBOL 209,42,28,8,8,28,62,28,8 
25540 REM AS et MC 

25550 SYMBOL 210,0,103,148,247,145,151,0,0 
25560 SYMBOL 211,0,139,220,172,140,139,0,0 


Après les symboles des planètes, il nous faut définir ceux des signes 
astraux. La grille 8 X 8 précédemment introduite ne suffit pas pour ceux-ci. 
Il est nécessaire de définir deux symboles utilisateur par signe astral. Cela 
explique l'existence (dans les lignes 25580 à 25810) de 24 symboles 
utilisateur pour représenter 12 signes astraux. 


25570 REM DEFINIT LES SIGNES #46 26 36 36-4646 3636 36 DE DEEE DE DE DE DEEE DE DE DE DD HE DE DE HÉHEDEDEDEDÉDEDÉ DD DE DE DEDE DE DENE 
25580 SYMBOL 212,4,4,2,1,2,2,2,1 

25590 SYMEOL 215,64,64,128,0,128,128,128,0 
25600 SYMBOL 214,0,28,54,3,6,6,3,1 

25610 SYMEOL 215,0,56,108,192,96,96,192,128 
25620 SYMBOL 216,0,21,15,4,4,15,31,0 

25630 SYMBOL 217,0,248,240,3:2,32,240,248,0 
25640 SYMBOL 218,7,15,28,30,30,12,32,31 

25650 SYMEOL 219,248,1:2,48,120,120,56,240,224 
25660 SYMBOL 220,7,135,8,4,20,29,9,0 

25670 SYMBOL 221,0,128,192,192,192,128,160,192 
25680 SYMBOL 224,1,2,2,1,62,0,63,0 

25690 SYMBOL 225,128,64,64,128,124,0,252 

25700 SYMBOL 222,0,46,81,17,17,17,17,0 

25710 SYMBOL 223,0,236,18,18,20,24,16,0 

25720 SYMBOL 226,0,46,81,17,17,17,17,0 

25730 SYMBOL 227,0,227,19,25,16,16,16,0 

25740 SYMBOL 228,0,0,0,0,1,2,12,4 

25750 SYMBOL 229,240,48,80,144,0,0,0,0 

25760 SYMBOL 2:0,0,8,8,4,4,2,2,1 

25770 SYMBOL 231,4,10,60,72,72,132,132,4 

25780 SYMEOL 232,16,40,69,146,40,69,130,0 
25790 SYMBOL ,65,162,20,75:,162,20,8,0 

25800 SYMBOL ,12,4,2,15,2,4,12,0 

25810 SYMEOL 235,96,64,128,224,128,64,96,0 
25820 RETURN 













JNN 


Le sous-programme définissant les caractères graphiques ne sera appelé 
qu’une seule fois à l’initialisation du programme. Une fois ce sous- 
programme exécuté, le graphisme correspondant à une planète d'indice J 
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(J variant de 1 à 10) pourra facilement être affiché à l’écran (préalablement 
positionné en MODE 1) par une instruction du type: 


PRINT CHR$(199+.J) 


De la même manière, l’affichage d’un signe astral d’indice K (K de 1 à 
12) s’obtiendra par: 


PRINT CHRS$(210+2:K)+CHR$(211+2*K) 


Ainsi, pour observer le jeu de symboles que vous venez de définir, 
entrez les quelques lignes suivantes : 


50000 MODE 1 : CLG 
50010 GOSUB 25430 
FOR 1=1 TO 10 

PRINT CHR$(199+1) 
NEXT 
O FOR 1=1 TO 12 

PRINT CHR$(210+2#1)+CHRS$ (211+2%1) 
NEXT 
GOTO 50080 





puis entrez RUN 50000. 
Les caractères graphiques une fois définis (à l’initialisation du pro- 
gramme), la préparation de l’écran s’effectue en trois étapes : 


A Définitions d’encres et de fenêtres. 
B Tracé du fond de la carte du ciel. 
C Mise en place des douze signes. 


Préalablement, il est utile de créer une routine permettant de déterminer 
les coordonnées CX, CY d’un point appartenant à un cercle de centre 
(OX, OY), de rayon R et d’angle au centre TH. Pour tracer un cercle au 
moyen de cette routine, il suffira donc de faire varier TH de 0 à 360 degrés 
et de dessiner successivement chaque point à l’écran. 


25830 REM PREPARE ECR GRAPH 44-246 4620 26 DD DE ND DD DE ED ED DE DEEE DE DD DD D DEAD DE 
25840 GOTO 25900 

25850 REM UTILITAIRES GRAPHIQUES #4 de 26 46 46 46 2664 D DD DE AE AE 26 6 DE 6 DD D D DE DE DE DE DE DE DD D DE DE DE DE 
25860 REM SUB CERCLE 

25870 CX=r #C0S (tH) +ox 

25880 cy=R*SIN(TH)+0y 

25890 RETURN 


L'instruction GOTO 25900 en 25840 esquive la routine CERCLE lors de 
l'appel du sous-programme de préparation d'écran graphique. Les lignes 
25900 à 26020 placent l’écran en mode 1, autorisant ainsi l’emploi de 
quatre couleurs simultanées. Celles-ci sont choisies parmi les 26 teintes 
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existantes au moyen des instructions INK. La fenêtre graphique n’est pas 
explicitement définie. Par contre, on définit une fenêtre # 2, destinée à 
recevoir, dans la partie droite de l'écran, les positions des planètes et 
maisons sous forme numérique ; et une fenêtre # 3 permettant d’afficher 
en haut de l'écran les nom et prénom de la personne dont le thème est 
calculé. Les autres instructions affectent les couleurs d’encre et papier dans 
les différentes fenêtres. 


25900 REM DEFINIT FENETRES ECRAN% 262626 DD DD DE DE ME DD DE DE DE DE DE D DE DE DD DE DE DÉDEDE DD HD DEEE DE DE DE DE 
25910 MODE 1 

2 O INK 0,24 : INK 1,1 : INK 2,17 : INK ©,6 

25940 WINDOW #2,25,40,1,2S:REM ######% AFFICHAGE TEXTE DES RESULTATS 
25950 WINDOW #3,1,24,1,1:REM ###3##3%3%3%% 1 LIGNE / HANDEAU SUFERIEUR GAUCHE 
25960 PEN O : FAFER 1 

25970 GRAFHICS FAFER 1:GRAPHICS FEN O,1 

25980 PAPER #2,2 : PEN #2,1 

25990 CLG :CLS #2 

26010 PFAFER #3,1 :CLS #3 : PEN #35,3 

26020 BORDER 2 





Le tracé du fond de la carte du ciel est réalisé des lignes 26050 à 26140. 
Ce fond se décompose en deux cercles concentriques formant une 
couronne divisée en secteurs de 30 degrés. Le programme fixe les 
constantes (rayons et centre) puis parcourt une boucle en faisant varier TH 
(l'angle au centre) de 0 à 360 degrés. Pour chaque valeur de TH, on trace 
successivement un point de chacun des deux cercles (au moyen de la 
routine de tracé de cercle en 25870) en prenant soin de sauvegarder les 
coordonnées du premier point tracé. En 26120 on teste si TH est divisible 
par 30. Si c'est le cas, on trace un segment de droite qui délimitera un 
secteur (ligne 26130). Dans le cas contraire, on passe au TH suivant. 


26050 REM TRACE DU FOND #46 6 6 DD DEEE DE GE DE DE DE DE DEEE DE DD DEA DE DE HE DEEE DE DE DE DIE DEEE REED DE DEEE ù 
26060 0x=192 : oy=192 : r1=80:r2=128 

26070 FOR TH=0 TO 360 STEF 1 

26080 r=r1i : GOSUB 25870 

26090 xi=cx :yi=cy 

268100 PLOT x1,yi 

26110 r=r2 :GOSUB 25870 :PLOT cx,cy 

26120 IF TH MOD 30 <> © THEN 26140 

26130 DRAW x1,y1 

26140 NEXT 


Une fois le tracé du fond effectué, on positionne les signes dans les 
douze secteurs. Les deux lignes de DATA (26160, 26170) contiennent les 
coordonnées CX, CY du curseur pour chacun des douze symboles. Ce 
sous-programme étant susceptible d’être appelé plusieurs fois, l'instruction 
RESTORE 26160 assure que le pointeur pour la lecture des DATA sera 
correct. Pour chaque signe, on positionne le curseur (ligne: 26210) et on 
crée une chaîne de caractères S$ contenant le symbole graphique 
correspondant. Une fois les douze signes affichés, on colorie l’intérieur du 
petit cercle. 


LT = 


O REM FOSITIONNE LES SIGNES ## 242 DD RH DEEE DEN DO N2 CELLES LILLS LS. 
0 DATA 6,15,7,18,10,20,14,20,17,18,18,15 
O DATA 18,12,17,9,14,7,10,7,7,9,6,12 
RESTORE 26160 
O FOR i=0 TO 11 
READ cx,cy 
LOCATE cx,cy 
O s+=CHR$#(212+2%i)+CHR$ (213+2#i) 
625:0 PRINT s$ 
O NEXT 
26250 MOVE 192,192 : FILL 2 
26260 TAGOFF 
26270 RAD 
26280 RETURN 





Si vous êtes curieux de voir à quoi ressemble la carte du ciel que vous 
venez de définir, entrez les quelques lignes ci-dessous : 


50000 GOSUB 25420 
50010 GOSUB 25840 
50020 GOTO 50020 


puis en mode direct: RUN 50000. 

Les programmes de préparation d'écran (texte ou graphique) une fois 
réalisés, nous allons décrire le programme permettant l'érection d’un 
thème de naissance. 


ÉRECTION DU THÈME 








Voici la liste des sous-programmes (adresse d'appel et fonction) devant 
résider en mémoire pour dresser un thème natal. Seules les routines 
auxquelles accède directement le sous-programme d’érection d’un thème 
sont listées ici. Ces routines font en général appel à d’autres sous- 
programmes, mais ceux-ci ont été décrits (et entrés en machine) dans les 
chapitres correspondants. 


1460 CALCUL DU TEMPS SIDÉRAL 

1650 DOMIFICATION 

3110 CALCUL DES POSITIONS PLANÉTAIRES 

3360 CALCUL DES POINTS FICTIFS 

3530 RECHERCHE DES ASPECTS 

3750 TRACÉ DES ASPECTS (MODE GRAPHIQUE) 
20000 IMPRESSION DES PLANÈTES ET MAISONS 
20530 ENTRÉE DES DONNÉES 
20780 CALCUL DES RÉPARTITIONS 
21050 CALCUL DU NOMBRE DE JOURS DEPUIS 1/1/2000 
21230 DESSIN DE LA CARTE DU CIEL = 
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25000 PREPARATION DE L'ÉCRAN (MODE TEXTE) 
25830 PRÉPARATION DE L'ÉCRAN (MODE GRAPHIQUE) 


Tous les sous-programmes ci-dessus ont été précédemment définis à 
l'exception de trois routines encore inconnues qui sont situées en 3750 
(tracé des aspects en mode graphique), 20000 (impression des planètes et 
maisons) et 21230 (dessin de la carte du ciel). Ces trois sous-programmes, 
n'étant utilisés que pour le dessin de la carte du ciel en mode graphique et 
l'impression, seront présentés en fin de chapitre. 

Nous vous livrons tout de suite les vingt petites lignes permettant de 
dresser un thème natal et la séquence d’appel de ce sous-programme. Vous 
pourrez ainsi constater que vos efforts ne sont pas vains et ériger vos 
premiers thèmes informatisés. 


10260 REM #w######66%# THEME NATAL 46 2626 2606026 DD DE DE DD DEA DIE DD DE DE DD DE DE DD DH DE DE DE DE DE DE DE DEN DEN 
10270 MG=Q : TITRES=" THEME NATAL 
10280 GOSUE 25000 

10290 GOSUB 20550 

10300 C=S : PRINT #5,"IMPRESSION"; 
10310 GOSUE 21180 : FLFRT=FLCH 
10315 IF FLPFRT THEN GOSUB 17000 
10320 GOSUB 21050 

10330 GOSUB 1460 

10740 GOSUB 1650 

10350 FLIMF=-1 

107360 GOSUB 3110 

10370 IF FLPRT THEN GOSUB 20000 
10780 GOSUB 3570 

10390 FLIMF=0O 

10400 GOSUB 20780 

10410 GOSUER 3760 

10420 FRINTHS," CARTE GRAPHIQUE 7" 
10470 C=S : GOSUB 21180 

10440 IF NOT(FLCH) THEN RETURN 
10450 GOSUB 25810 

10460 GOSUB 212350 

10470 RETURN 

50000 REM TEST THEME NATAL 


50010 GOSUR 30000 : REM INIT 
50020 GOSUE 25420 : REM SYMBOLES 
50070 GOSUB 10270 : REM TH NATAL 


50040 GOSUB I0700 
S0050 GOTO 500730 
S0060 END 


Il ne vous reste qu’à entrer RUN 50000 en mode direct. Prenez garde de 
ne pas répondre “OUI” à la question “CARTE GRAPHIQUE ?” car les 
routines de positionnement des planètes, maisons et aspects n’ont pas 
encore été définies. Il en est de même pour la question “IMPRESSION ?” 
(Routine à définir en 20000). 

Expliquons maintenant le fonctionnement de ce sous-programme. 

La variable MG est positionnée à 0 pour indiquer aux routines l’utilisant 
que la sortie des résultats s’effectue en mode texte. 

La chaîne de caractères TITRES est utilisée comme en-tête dans le cas 
de sortie des résultats sur l’imprimante. La routine 25000 est alors appelée 
pour initialiser l'écran en mode texte. 

La routine 20530 permet à l'utilisateur d’entrer les données nécessaires 
au calcul du thème. 
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Les deux lignes 10300 et 10310 positionnent le drapeau FLPRT 
indiquant si une sortie sur imprimante est souhaitée. Si vous ne possédez 
pas d'imprimante, vous pouvez omettre ces deux lignes ainsi que (dans 
l’ensemble du logiciel) tous les tests portant sur FLPRT. Toutefois, 
peut-être offrirez-vous un jour ou l’autre ce périphérique à votre 
ordinateur... Dans ce cas, entrez le programme avec les références à 
FLPRT mais n'oubliez pas que si vous répondez “OUI” à la question 
“IMPRESSION ?” sans avoir connecté une imprimante, l'ordinateur se 
bloquera en attente d’un signal READY en provenance d’une (inexis- 
tante) imprimante. 

Les trois lignes 10320 à 10340 effectuent successivement le calcul du 
nombre de jours écoulés depuis le 1°" janvier 2000, le calcul du temps 
sidéral et la domification. 

Le drapeau FLIMP est positionné pour indiquer au sous-programme de 
sortie des positions planétaires que celles-ci doivent être affichées à 
l'écran. Il est en effet des cas dans lesquels les positions calculées ne sont 
pas affichées (double calcul pour les rétrogradations par exemple). 

La routine 3110 effectue ensuite le calcul des positions planétaires 
(rappelons qu’elle gère elle-même l’appel de la routine effectuant la sortie 
des résultats). 

La ligne 10370 teste FLPRT afin de provoquer éventuellement un 
aiguillage vers la routine 20000 (impression). 

La routine 3530 recherche les aspects (elle aussi gère ses sorties) puis 
FLIMP est remis à 0. Les répartitions et points fictifs sont ensuite calculés 
et affichés (lignes 10400 et 10410). 

En 10420 et 10430, le programme teste si l’utilisateur souhaite obtenir 
une carte du ciel en mode graphique. Dans l’affirmative, les lignes 10450 et 
10460 sont exécutées ; dans le cas contraire, le sous-programme retourne 
au programme appelant. 

Nous pouvons maintenant entreprendre la description des trois routines 
manquantes (impression et graphiques). 

La plus courte sert au tracé des aspects en mode graphique. Elle utilise 
deux tables (PX (1), PY (1)) qui contiennent les coordonnées écran des 
planètes, de l’ascendant et du milieu du ciel. Les dix premières positions de 
chaque table correspondent aux dix planètes, la onzième à l’ascendant et la 
douzième au MC. Ces tables seront remplies lors de l'exécution des 
routines de positionnement des planètes et maisons sur la carte du ciel. 

Complétez tout d’abord la ligne 30020 (dimensionnement des tables) en 
y ajoutant PX (12), PY (12). La routine de tracé des aspects (appelée par le 
sous-programme de recherche des aspects) tient en trois lignes: 


3750 REM ** SUB TRACE ASPECTS MODE GRAPH #42 3648 De D De DE DE DD DD DE DD DE DE DE DO D D DDE 
3760 IF ASP=3 OR ASP=5 THEN GRAPHICS PEN 3 ELSE GRAPHICS FEN 1 

3770 MOVE PX(AK) ,PY (AK) 

3780 DRAW FX (AJ) ,PY (AJ) 

3790 RETURN 


ATP EE 


La ligne 3760 permet de tracer les carrés et oppositions (ASP = 3 ou 5) 
en rouge et les autres aspects en bleu. Les indices AK et AJ sont 
positionnés par le sous-programme appelant et des lignes 3770 et 3780 
effectuent le tracé proprement dit. 

Le sous-programme positionnant les maisons et planètes sur la carte 
graphique se décompose en deux parties. 


Position des maisons 


21230 REM #####mumx DESSIN DES MAISONS 42-2646 06 26 26H DD AE DE DE DEEE DEEE HE DE DE DE DE DE DEEE DEEE DE DE DEEE 
21240 DEG 

21250 PRINT #3,NOM$;" ‘;PNOM$ 

21260 FOR IM=1 TO 12 

21270 SI=FNSI (LM(IM)) 

21280 LAS=FNMI (FNLAS (LM(IM))) 

21290 PRINT #2, USING FMG$;MAIS$(IM) ,LAS,CHR$ (SI#2+210)+CHR$(SI#2+211) 
21300 TH=elLM(IM) +180 

21310 R=R2 

21320 GOSUB 25870 

21330 X1=CX :Y1=CY 

21340 PLOT X1,Y1 

21350 R=R2+30 

21360 GOSUB 25870 

21370 DRAW CX,CY 

21380 GOSUB 21410 : REM TAB POS POUR ASFECTS 

21390 NEXT IM 

21400 GOTO 21460 

21410 REM SUR INTERNE 

21420 R=R1-1 : GOSUR 25870 

21430 IF IM=10 THEN IN=12 ELSE IF IM=1 THEN IN=11 ELSE RETURN 
21440 PX(IN)=CX : PY(IN)=CY 

21450 RETURN 


Notez en ligne 21290 la présence d’un nouveau format d'impression : 
FMG$ (pour Format Maisons Graphiques). Il faut le définir de la façon 
suivante : 


30260 FMG$="“bb\b\b## : ##b \\" 
Analysons le fonctionnement de ce sous-programme. 


Lignes 21240-21250 


On définit en degrés les arguments des fonctions trigonométriques et on 
imprime en fenêtre 3 les nom et prénom du sujet. 


Lignes 21260 à 21390 


C’est la boucle à l’intérieur de laquelle le positionnement des douze 
maisons va s'effectuer. 


Lignes 21270-21280 


On calcule l'indice SI du signe astral dans lequel se trouve la maison 
étudiée (d'indice IM) puis la longitude LAS de la maison dans ce signe 
(comprise entre 0 et 29.59 degrés). 
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Ligne 21290 


C’est l’impression en fenêtre 2 des longitudes des pointes des maisons. 


Lignes 21300 à 21340 


On détermine les coordonnées X;,, Y, de la pointe de la maison sur le 
cercle extérieur de la carte du ciel et on la trace à l'écran. 


Lignes 21350 à 21370 


On trace un segment de droite de 30 unités, extérieur au grand cercle, à 
l'emplacement de la pointe de la maison. 


Ligne 21380 


Saut à la routine 21430. 


Ligne 21400 


On passe à la suite (dessin des planètes). 


Lignes 21410 à 21450 


Routine interne qui met en mémoire dans les tables PX (1), PY (I) les 
coordonnées des pointes de l’ascendant et du milieu du ciel (cette fois sur 
le cercle intérieur) pour le tracé des aspects. 


Dessin des planètes et aspects 


Tout d’abord, on note en ligne 21500 la présence d'un nouveau format 
d'impression (destiné lui aussi à l'écran): FPG$. Entrez sa définition en 
ligne 30240: 


30240 FPG$="“bb\\b## : ##b\\" 


Les huit premières lignes (21470 à 21540) effectuent l'impression des 
positions planétaires, sous forme numérique, en fenêtre 2 et complètent les 
tables PX (1) et PY (1) pour le tracé des aspects. 


21460 REM ######%#%% DESSIN DES PLANETES #24 3624-26 46 262 96 46 D DE D D DE D D ED DE DE D DE OEe 
21470 FOR IP=1 TO 10 

21480 SI=FNSI (LP(IP)) 

21490 LAS=FNMI (FNLAS (LP (IP))) 

21500 PRINT #2, USING FPG$;CHR$(IP+199) ,LAS,CHRS$ (S1#2+210)+CHR$(SI#2+211) 

21510 TH=LP (IP) +180 

21520 R=Ri-1 : GOSUB 25870 

21530 PX(IP)=CX : PY(IP)=CY 

21540 NEXT 
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La ligne 21550 permet de tracer les aspects sur la carte du ciel. Le 
drapeau MG est positionné à — 1 et FLPRT à O0 afin de préciser aux 
routines appelées que les sorties en mode texte et sur imprimante sont 
inhibées. 

La ligne 21560 fixe la couleur d’encre et établit un mode de fond 
transparent pour le tracé des symboles planétaires. 

En 21570 et 21580 on précise que les instructions PRINT à venir doivent 
être dirigées vers l'écran graphique, et on fixe un rayon R à l'extrémité 
duquel seront affichés les symboles. 

La boucle 21590-21660 affiche les symboles planétaires (ainsi que AS et 
MC). Entre deux points affichés on fait varier R afin d'éviter les 
superpositions qui rendraient vite la carte du ciel illisible. 

Enfin on retourne au mode habituel de fonctionnement par TAGOFF et 
RAD. 


21550 MG=-1 :FLPRT=0: GOSUB 2520:FLPRT=-1 
21560 GRAPHICS PEN O,1 

21570 TAG 

21580 R=R2+20 

21590 FOR I=1 TO 12 

21600 TH=LP (1)+180 

21610 R=R+10 

21620 IF RDR2+50 THEN R=R2+10 
21630 GOSUB 25870 

21640 MOVE CX,CY 

21650 PRINT CHR$(199+1); 
21660 NEXT I 

21670 TAGOFF : RAD 

21680 RETURN 


SORTIES SUR IMPRIMANTE 


Le sous-programme ci-dessous permet d’imprimer sur papier les 
positions des planètes et des pointes des maisons. Il suppose que 
l'imprimante utilisée dispose d’au moins 80 colonnes. Dans le cas 
contraire, il vous faudra définir vos propres formats (FPR1$, FPR2$, 
FPR3$) et réécrire cette routine. 

L'impression des résultats s'effectue uniquement en mode texte; en 
effet, les accès aux graphiques sur imprimante sont trop étroitement liés au 
matériel utilisé pour écrire une routine universelle. 

Si vous disposez d’un programme de recopie d’écran sur imprimante, 
vous pourrez l'intégrer à ce logiciel pour obtenir un exemplaire sur papier 
de votre carte du ciel. 

Deux formats doivent être définis préalablement : 


30310 FPR1$="\bbbbb\b## : ##b\\b\bbbbbbbb\b” 
30320 FPR2$="bbb\bb\b## - ##b\bbbbbbbb\b"” 
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Le format FPR3$ a été défini dans le chapitre traitant des aspects. Les 
lignes 20010 à 20070 impriment les en-têtes, les nom et prénom du sujet, 
les date et heure de naissance, et les coordonnées géographiques. 


20000 REM ### IMPRESSION PLANETES/MAISONS 42-26 2626626 26 DD DD DD DD ED DEEE DE DE 
20010 PRINT #8,CHR$ (13) 

20020 PRINT#8,STRING# (30,42) +TITRES$+STRING# (50,42) 

20030 PRINT#8,"" 

20040 PRINT #8," “"sNOMS#;" "3; PNOMS#;"  ";D# 

20050 PRINT #8," HEURE T.U "ÿHTU;" LONG. "3LON3" LAT. ";LA 

20060 FRINT #8,:FRINT#B,STRING$(33,42)+" POSITIONS "+STRING#(:5,42) 

20070 FRINT#8,"" 


Les lignes 20080 à 20180 constituent la boucle d'impression. Leur 
apparente complexité est due au fait que le programme imprime plusieurs 
paramètres par ligne. 

Entrez ce sous-programme et faites imprimer les résultats; vous 
comprendrez mieux son fonctionnement ainsi, qu’au moyen d’un long 
discours. 


20080 FOR 1=1 TO 6 
20090 SI=FNSI (LP(1)): SM=FNSI (LM(I)):SN=FNSI (LM(I+6)):1F FRET(1)=1 THEN R$='"R 


ELSE R$="" 
20100 LAS=FNMI (FNLAS (LP (1) )) : LAM=FNMI (FNLAS (LM(I))):LAN=FNMI (FNLAS (LM(I+6))) 
20110 PRINT #B,USING FPR1$+FPR2#+FPR2$3FLS$ (1) ,LAS,R$,SIGN# (SI) ,MAIS# (I) ,LAM, € 


GN$ (SM) ,MAIS#(1+6) ,LAN,SIGN# (SN) 

20120 NEXT 1 

20130 FOR 1=7 TO 10 

20140 SI=FNSI(LP(1)):1F FRET(I)=1 THEN R$="R" ELSE R$="" 
20150 LAS=FNMI (FNLAS (LP (1))) 

20160 PRINT #8,USING FPR1#;PL$(CI) ,LAS,R$,SIGNS# (SI) 

20170 NEXT 

20180 RETURN 





TEST 


Vous voici prêt à dresser entièrement un thème natal. Pour cela, il suffit 
d'écrire trois lignes 


50000 GOSUB 3000 : REM INITIALISATION 
50010 GOSUB 10260 : REM THEME NATAL 
50020 END 


et d’entrer une date et un lieu de naissance. 
Commencez par reprendre les deux dates avec lesquelles vous avez déjà 
fait les tests des chapitres précédents. 
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LERLSSES LS DELL LI LL LL LLLLLLLLLL)) THEME NATAL LELLLLE LILI LL LEE LIL ELLE LLLELLE])] 


TEST 1/01/2000 
HEURE T.U 12 LONG. 2.2 LAT. 48.45 


MRRRRSRERSRRSRRRHSRRESRSÉSHSS666+ POSITIONS #RRRRERRERREERRRRERREERÉRRRRRRERRERES 


SOLEIL 10.23 CAPRICORNE AS 26.40 BELIER D8 26.40 BALANCE 
LUNE 13.19 SCORPION II 1.23 GEMEAUX VIII 1.23 SABITTAIRE 
MERCURE 1,54 CAPRICORNE 111 22.50 BEMEAUX IX 22.50 SABITTAIRE 
VENUS 1.35 SABITTAIRE FC 11.46 CANCER MC 11.46 CAPRICORNE 
MARS 27.58 VERGEAU V 2.45 LION XI 2.45 VERGEAU 
JUPITER 25.19 BELIER VI 2.44 VIERGE XII 2.44 POISSONS 


BSATURNE 10.21 R TAUREAU 
URANUB 14,50 VERSEAU 
NEPTUNE 3.12 VERSEAU 
PLUTON 11.27 SABITTAIRE 


MARMRRMRURRRRRRUNNUNRRRERRERRUNUEE ASPECTS 44 UMA UE AU UE DE UEUE UE UE QU NEA DU UE QUEUE GENRE UE 


SOLEIL SEXTIL LUNE 3 SOLEIL CONJON MERCURE 8 
SOLEIL TRIBON SATURNE 0 SOLEIL CONJON MC 1 
LUNE OPPOSI SATURNE 3 LUNE CARRE URANUS 2 
LUNE SEXTIL MC 2 MERCURE SEXTIL MARS 4 
MERCURE TRIGON JUPITER 7 MERCURE TRIGON AS S 
MERCURE CONJON MC 10 VENUS CARRE MARS 4 
VENUS  SEXTIL NEPTUNE 2 VENUS  CONJON PLUTON 10 
MARS SEXTIL JUPITER 3 MARS SEXTIL AS 1 
JUPITER CONJON AS 1 SATURNE CARRE URANUS 4 
SATURNE TRIBON MC 1 URANUS CONJON NEPTUNE 12 


URANUS SEXTIL PLUTON 3 


MARRRRRRRRRURRRRUNNENERENNSERRUREE REPARTITIONS 4444 AEAEE AU ONE DEAR NN 


SIGNES MASCULINS 5 6 
SIGNES FEMININS 5 4 


SIGNES CARDINAUX 1 3 


SIGNES FIXES 1 S 
SIGNES MUTABLES : 2 
SIGNES DE FEU 1 3 
SIGNES DE TERRE 1 3 
SIGNES D'AIR 1 3 
SIGNES D'EAU 1 | 


LALELE LEE LE EE EE EEE EEE EE EEEETESEETEEETETEETEEEEETECEC ET EE EE EE CE CEE CCCCECEECES 
NOEUD LUNAIRE ASC. 
3.54 LION 
PART DE FORTUNE 
29.3b VERSEAU 
LUNE NOIRE 
22.31 SAGITTAI 


_ 82 - 


9 








BE RÉVOLUTIONS SOLAIRES 





La révolution solaire est le passage du Soleil à la même longitude que 
celle qu’il occupait à la naissance. Le thème de révolution solaire est 
calculé au moment où se produit cet événement astronomique pour un 
individu. Certains astrologues considèrent qu'il faut le dresser pour le lieu 
de naissance, d’autres affirment qu'il faut au contraire l’établir pour le lieu 
où se trouve effectivement la personne lors de son anniversaire. Nous ne 
trancherons pas cette question, l’utilisateur du programme indiquera les 
coordonnées de son choix. 

Les thèmes de révolution solaire fournissent des données sur le climat 
général qui prédominera dans l’année considérée. Les astrologues 
s'intéressent habituellement aux positions occupées par les planètes et les 
maisons et aux aspects qu’elles forment entre elles et avec leurs positions 
dans le thème natal. 


CALCUL DU TEMPS DE LA RÉVOLUTION SOLAIRE 


Cette routine en 3810 calcule le temps TR; de la révolution solaire d’une 
personne née au temps TR, lorsqu'elle atteint AGE années. La différence 
entre TR, et TR; n’est pas un nombre entier d’années pour plusieurs 
raisons astronomiques qui sont données en annexe. 

La ligne 3850 calcule la position du Soleil natal et la range dans SOL. 

On calcule ensuite, lignes 3860-3870, un temps approché TRA, distant 
de TR, de AGE années juliennes de 365,25 jours et de termes correcteurs 
du premier ordre, dont la justification mathématique est donnée page 
120. La position du Soleil au temps TRA est calculée ligne 3880, le résultat 
est contenu dans LH. 

Le temps TRA peut être faux de quelques heures, en plus ou en moins, il 
va servir de point de départ pour trouver le temps exact par itérations 
successives dans la boucle des lignes 3900-3920. 

Si LH est plus grand que SOL, TRA est trop grand ; il faut le diminuer. 
Le pas de l'itération PAS est alors de — 1077 siècle, soit environ 
S minutes; sinon, il faut augmenter TRA, le pas est alors positif. Le 
résultat doit être trouvé après un petit nombre d’itérations. Néanmoins, il 
faut fixer une borne supérieure à l’itération, 100 itérations donnant une 
marge suffisante dans tous les cas (ce chiffre correspond à une différence 
de près de 9 heures entre TRA et le temps cherché). 

Dès que la différence entre la position LH du Soleil au temps TT est 
inférieure en valeur absolue à 0.,00003 radian, soit 6 secondes d’arc 
environ, le temps TT est rangé dans TR, et le contrôle est rendu au 
programme principal. Notons que cette valeur de 6 secondes d’arc est le 
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parcours moyen du Soleil sur l’écliptique durant les 5 minutes qui séparent 
deux valeurs successives de TT. 


3810 REM ########% REVOLUTIONS SOLAIRES 422464 Me 4 JE DD DD D DE DE DE DE DE DD DD DE DD DD D 


3820 REM ENTREE TRI TEMPS EN SIECLES DE LA NAISSANCE 
2830 REM AGE 
:840 REM SORTIE TR2 TEMPS A LA REVOLUTION 


:8S0 TRI1=T :GOSUB 1330 : SOL=LH : MG=0 

:860 DT=2.45-4.59%(1-EX*C0S (AE) )°2+0.00669%xSIN(AE) 
:870 TRA=TR1+AGE* (O.01+DT#O.0000001) 

3880 T=TRA : GOSUR 1330 

1890 PAS=(1+2#(LH>SOL) ) #0.0000001 

3900 FOR TT=TRA TO TRA+100*FAS STEP PAS 

3910 T=TT :GOSUR 1530 

3920 IF ABS(LH-SOL) <= 0.00003 THEN TR2=TT : RETURN 
3930 NEXT 





THÈME DE RÉVOLUTION 


La routine en 10480 est calquée sur celle du thème natal en 10260, qui a 
été exposée au chapitre précédent. Il suffit de mentionner les différences. 


e Il n’y a pas lieu d'utiliser la variable MG, car un seul mode de sortie est 
prévu (ligne 10490). 


e En plus du nom, du prénom, de la date et de l’heure de naissance ainsi 
que des coordonnées du lieu pour lequel le thème est dressé, il faut 
indiquer en années l’âge auquel correspond la révolution solaire ; cela 
est fait ligne 10540. 


e Une fois le temps TR; calculé (ligne 10570), on donne sa valeur à T pour 
la suite des calculs et on calcule en radians l’heure qui lui correspond 
(ligne 10590); notez qu'il faut ajouter à la partie décimale de 
2x * (T; — INT (T)), car l'origine des temps T = 0 correspond à midi 


(ligne 10590). 


e Le programme calcule ensuite la position des planètes (ligne 10610) et 
celle des maisons (ligne 10650) après calcul du temps sidéral au temps 
TR; et au lieu donné. 


e Si une sortie sur imprimante est prévue (FLPRT="#Vrai), le 
programme exécute la routine d’initialisation de l'imprimante en 13000, 
puis celle d’impression des planètes et des maisons en 20000. 


10480 REM #%###%#%%%%#%%% REVOLUTIONS SOLAIRES 4e de 2646646 26 46 36 26 6 DE 6 De De AE D DE DE DD Nm on 

10490 TITRE$=" REVOLUTION SOLAIRE “ 

10500 GOSUB 25000 

10510 GOSUB 20530 

10520 PRINT #5," IMPRESSION" 

10530 C=5 : GOSUR 21180 : FLPRT=FLCH 

10535 IF FLPRT THEN GOSUEB 13000 

10540 INPUT #S,"AGE "; AGE 

10550 GOSUB 21050 — 
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10570 GOSUB 3810 

10580 T=TR2:T2=T#36525 

10590 HRD=2#P1#(T2-INT(T2))+PI 
10600 FLIMP=-1 

10610 GOSUB 3110 

10840 GOSUB 1460 

10650 GOSUB 1650 

10660 IF FLPRT THEN GOSUB 20000 
10670 IF NOT(FLCMP) THEN GOSUB 3530 
10680 FLIMP=0 

10690 RETURN 





TEST 





Comme pour un thème natal, trois lignes suffiront pour tester les 
révolutions solaires : 


50000 GOSUB 30000 : REM INITIALISATION 
50010 GOSUB 10480 : REM RÉVOLUTION SOLAIRE 
50020 END 


Vous pouvez commencer avec l’exemple donné ci-dessous (révolution 
solaire pour 1985 à 64 ans) puis continuer avec les dates de votre choix. 


MUMURRURUURERRRRRNNRRRRERHAEUEE REVOLUTION SOLAIRE 44444 UE DE GMA UE AE QE AE HAE UE UE GER IEEE 


REVOLUTION SOLAIRE 64 ANS 23/09/1921 
HEURE T.U 3.5 LONG. 2.2 LAT. 48.45 


RRRRRRRRERRRERRÉTEH RH H644668 FOSITIONS RRRRRRERERERÉEEÉÉRRREERRRRRERERERTE 


SOLEIL 29.35 VIERGE AS 3.01 VERSEAU DS 3.01 LION 

LUNE 14.41 CAPRICORNE IT 28.34 POISSONS VIII 28.34 VIERGE 
MERCURE 29.26 VIERGE 111 6.49 TAUREAU IX 6.49 SCORPION 
VENUS 0.39 VIERGE FC 1.15 GEMEAUX MC 1,15 SABITTAIRE 
MARS 7.59 VIERGE V 20.37 GEMEAUX XI 20.37 SAGITTAIRE 
JUPITER 7.20 R VERSEAU VI 9.21 CANCER XII 9.21 CAPRICORNE 


SATURNE 24.09 SCORPION 
URANUS 14.25 SAGITTAIRE 
NEPTUNE 0,51 CAPRICORNE 
PLUTON 3.29 SCORPION 
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COMPARAISON DE THÈMES 


Pour 


l’astrologue, comparer les thèmes natals de deux personnes permet 


de détecter les affinités ou les inimitiés, les convergences ou les 
divergences entre les “modes de fonctionnement” des sujets. 

De la même façon, la comparaison entre un thème natal et une 
révolution solaire permet de replacer les informations données par celle-ci 


dans le 


contexte du thème natal. 


Le programme présenté ici effectue cette comparaison en détectant les 


aspects 


existant entre les différents points (planètes et cuspides des 


maisons) des deux thèmes. 
Ce programme peut se décomposer en trois parties : 


1. L'entrée des données, qui permet à l’utilisateur de choisir de comparer, 


soit 


deux thèmes de naissance, soit un thème de naissance et une 


révolution solaire (celle du thème en question). 


2. L’initialisation d’une table, qui sera remplie avec les longitudes des 
points des thèmes à comparer. 


3. La comparaison proprement dite, incluant l’affichage, et éventuelle- 
ment l'impression, des aspects détectés. 


Analysons successivement ces trois points. 


10700 


ENTRÉE DES DONNÉES 


REM #############t COMPARAISON DE THEMES #46 DE DEEE DD DE DEEE DEEE DEEE 


A DH AU DEN AU AE 6 D DE DE EU UE D DEEE HDI DE 
DD DH DD DEN DE D DE D DE D D DE HE DD DEN DE DE 


10710 
10720 
10730 
10740 
10750 
10760 
10770 
10780 
19790 
10800 
10810 
10820 
10825 
10830 
19840 


Cette 


CLS : TITRES=" THEMES COMPARES  ‘ 

PRINT SPC (30) "COMPARAISON DE THEMES" 

PRINT 3PRINT 

PRINT SPC(20)"1.......... ENTRE 2 THEMES DE NAISSANCE" 

PRINT 

PRINT GPC(20)"2.......... ENTRE 1 THEME ET UNE REVOLUTION SOLAIRE" 
PRINT 

PRINT SPC (20)""3 

INPUT" CHOIX "C3 

GOSUB 11020 


CLS 3 PRINT: PRINT" IMPRESSION ‘";:C=0:GOSUB 21180 
FLPRT=FLCH 

IF FLPRT THEN GOSUB 13000 

CLS : CPTA=0 


FLIP=-1 : flop=flip 


partie du programme appelle peu de remarques. 


Lignes 10710 à 10790 


Elles nettoient l'écran et affichent le menu interne permettant de choisir 
entre les deux options présentées plus haut. La variable de choix, C;, sera 
utilisée ultérieurement dans le remplissage de la table de travail. 
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Ligne 10800 


Elle appelle le sous-programme effectuant le remplissage de cette table. 


Lignes 10810-10820 


Elles offrent la possibilité d’une impression des aspects détectés sur 
papier. 


Ligne 10830 


Elle initialise à 0 la variable CPTA qui, comme à l’accoutumée, compte 
les aspects affichés à l’écran pour éviter un déroulement intempestif de 
celui-ci. 


Ligne 10840 


Elle initialise les variables FLIP et FLOP qui permettront, tant à l'écran 
que sur l’imprimante, d’afficher deux aspects par ligne. 


INITIALISATION DE LA TABLE DE TRAVAIL 





C’est bien sûr le tableau WORK (1) qui sera utilisé. Chacun des deux 
thèmes à comparer est représenté par 22 éléments de WORK(I) 
(10 planètes et 12 maisons). La table une fois initialisée comptera donc 
44 éléments ordonnés de la façon suivante : 


Indices Éléments 

l'a T0. sidi 10 planètes du thème 1 
A AE EP e 12 maisons du thème 1 
BATH ines 10 planètes du thème 2 
33 à 44 ........................... 12 maisons du thème 2 


Le sous-programme d’initialisation de WORK (1) se présente ainsi: 


11020 REM REMFLISSAGE TABLEAU WORK(I) 
11030 GOSUB 25000 

11040 FLCMF=-1 

11050 FLFRT=O 

11060 FLIMP=-1 

11070 FOR C1=0 TO 1 

11080 IF(C1=1) AND (C3=2) THEN GOSUB 10540 : GOTO 11140 
11090 GOSUB 20530 

11100 GOSUB 21050 

11110 GOSUB 1460 

11120 GOSUB 1650 

11130 GOSUB 3110 
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11140 FOR C2=1+22#C1 TO 10+22*#C1 

11150 WORK (C2) =LF(-(C1=0)#C2-(C1=1)#(C2-22)) 
11160 NEXT C2 

11170 FOR C2=1+22#C1 TO 12+22+xC1 

11180 WORK (C2+10)=LM(-(C1=0) #C2-(C1=1)#(C2-22)) 
11190 NEXT C2 

11200 NEXT C1 

11210 FLCMF=0 

11220 RETURN 


ANALYSE 


Ligne 11030 


Elle appelle le sous-programme qui prépare l'écran à recevoir les 
résultats en mode texte. En effet, les positions des planètes et des maisons 
étant calculées ici pour chacun des deux thèmes, il serait dommage de ne 
pas les afficher correctement à l'écran, préalablement à la comparaison. 


Ligne 11040 


FLCMP est une variable logique testée lors du calcul d’une révolution 
solaire. Si FLCMP est vraie (= — 1), les aspects entre les différents points 
de la R.S. ne sont pas calculés, cela afin de gagner du temps lors de la 
comparaison entre un thème natal et une révolution solaire. 


Ligne 11050 


On ne présente plus FLPRT, drapeau d'impression. Il est positionné à 0 
pour éviter l'impression des positions des points des deux thèmes à 
comparer. Si vous désirez imprimer (en plus des aspects entre les deux 
thèmes) les positions des points de chaque thème, il suffit de supprimer la 
ligne 11050, de faire passer la ligne 10800 en 10820, la ligne 10810 en 10800, 
et la ligne 10820 en 10810. 


Ligne 11060 


FLIMP est un drapeau testé lors de la sortie des résultats à l’écran en 
mode texte. Si FLIMP est vrai, on affiche les résultats, sinon la sortie est 
inhibée. 

Ligne 11070 


Début de la boucle de remplissage de WORK (1). Si C; = 0, on calcule et 
on affecte les positions du premier thème à comparer ; si C; = 1, c’est au 
tour du second. 


Ligne 11080 


Elle permet de déterminer si l’on compare deux thèmes natals ou un 
thème natal et une révolution solaire. En effet C; vaut 1 dans le premier 
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pas et 2 dans le second. Dans les deux cas, le premier thème calculé est 
toujours un thème natal ; C, vaut alors 0 et le programme passe à la ligne 
suivante. Lorsque C;, =1, le programme sait qu’il effectue les calculs 
portant sur le second thème. Il teste alors C;: si C;3=2, il effectue la 
séquence d'instructions suivant le THEN (saut à la routine de calcul d'une 
révolution solaire, puis saut en 11140), sinon il passe à la ligne suivante (cas 
d’une comparaison entre deux thèmes natals). 


Lignes 11090 à 11130 


C'est la séquence de calculs des positions planétaires et domification 
d’un thème natal. 


Lignes 11140 à 11160 


N'oubliez pas que cette boucle est imbriquée dans une boucle où C,; 
varie de 0 à 1. En observant les bornes de la présente boucle, vous 
constaterez qu’elle effectue le remplissage du tableau avec les dix planètes 
du thème 1 (si C; = 0) puis du thème 2 (si C;, = 1). 


Lignes 11170 à 11190 


Même procédé pour les cuspides des maisons. Le calcul des expressions 
logiques ne devrait plus avoir de secret pour vous... 


Ligne 11200 


Fin de la boucle principale. 


Ligne 11210 


On remet FLCMP à 0 sous peine de ne plus pouvoir calculer d’aspects 
dans une révolution solaire. 


Ligne 11220 


Retour au programme appelant. 


COMPARAISON 





Le sous-programme de comparaison est identique à celui qui effectue la 
recherche des aspects dans un thème. Seules diffèrent : 
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e Les limites des boucles et les lignes déterminant si le point testé 
correspond à une planète ou à une maison; cela en raison de la taille et 
de la structure différentes de la table de travail. 


e Les instructions effectuant la sortie sur écran des résultats et le test de la 
variable CPTA, cela du fait que l’on affiche deux résultats par ligne. 


10850 FOR I=1 TO 22 


10860 FOR J=235 TO 44 

10870 ANG=WORE (I) -WORK (J) 

10880 GOSUB 1950 

10890 IF ASF=0 THEN 10990 

10900 CFTA=CPTA+1 

10910 IF 1:10 THEN WI#=MAIS#(I-10) ELSE WIf=FL#(1) 

10920 1F J>32 THEN WJ$#=MAIS#$(J-32) ELSE WJ$=FL#$(J-22) 

10930 IF FLIF THEN FRINT" "3: FRINT USING FA#$;WI#$,ASMA$ (ASP) ,WJ$,ABRS (ANG-ASM 
A(ASF)) ;:FLIF=NOT(FLIF):GOTO 10950 

10940 FRINT" * “PRINT USING FAS$;WI$,ASMA$ (ASP) ,WJ$, ABS (ANG- 
ASMA (ASF) ): FLIF=NOT (FLIF) 

10950 IF NOT(FLFRT) THEN 10980 


10960 IF flop THEN FRINT #8,USING FPRI$:WI$,ASMA# (ASP) ,WJ#, ABS (ANG-ASMA (ASP) ) : 
:flop=NOT(f1op):GOT0O 10980 


10970 FRINT#B,STRING#(7,12);: PRINT #8,USING FFRI$; WI#,ASMA# (ASF) ,WJ+#, ABS (ANG--A 
SMA (ASF) ): flop=NOT (flop) 

10980 IF CPTA MOD 48 = 0 THEN C=0 : GOSUB 30700 

10990 NEXT J 

11000 NEXT I 

11010 RETURN 


TEST 


50000 GOSUB 30000 : REM INITIALISATION 
50010 GOSUB 10700 : REM COMPARAISON 
50020 END 


Plutôt rapide, non ? 
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11 
TRANSITS 





Le thème d’un individu, érigé à sa naissance, est censé rendre compte de 
la personnalité et des potentialités de l’être. Tout au long de la vie du sujet, 
les planètes poursuivent leurs courses autour du Soleil. 

Elles forment alors parfois des aspects avec les différents points du 
thème natal. Ce rapport particulier entre la position réelle d’une planète 
dans le ciel et un point du thème natal porte le nom de transit. L’orbe 
admis pour le calcul d’un transit est d'environ 1 degré. La plupart des 
astrologues ne considèrent comme influents que les transits par 
conjonction, carré ou opposition. 

Le présent sous-programme permet de déterminer (pour chacune des 
planètes de la Lune à Pluton), à partir d’une date et pour une durée 
choisies par l'utilisateur, les dates auxquelles un transit s’opère. 


STRUCTURE ET PRINCIPE DE CALCUL 


Pour détecter toutes les dates où un transit a lieu, il faut calculer les 
positions de la planète transitante au fil du temps. A priori, il semble 
suffisant d'organiser une boucle à l’intérieur de laquelle on fait varier le 
temps, on calcule la nouvelle longitude de la planète, puis on teste la 
présence d'aspects. 

Le problème inhérent à cette méthode est la recherche d’un pas 
d'incrémentation optimal. En effet, un pas suffisamment petit donne 
l'assurance de détecter tous les aspects, mais il fait perdre beaucoup de 
temps en calculs inutiles lorsque la planète transitante traverse une région 
du ciel où aucun aspect ne se forme avec les points sensibles du thème 
natal. A l'inverse, un pas plus grand réduit le temps de calcul mais fait 
courir le risque de ne pas “voir” certains aspects. 

La méthode retenue pour résoudre ces problèmes consiste à effectuer 
deux boucles successives. La première effectue un repérage grossier, le pas 
d'incrémentation choisi correspondant environ à une progression de 
10 degrés de la planète transitante. On cherche alors si un aspect existe 
avec un orbe de 10 degrés. Si aucun aspect n’est trouvé, on poursuit 
l'exécution de cette boucle. 

Dans le cas contraire, une seconde boucle permet de parcourir 
l'intervalle que vient d'explorer la première avec, cette fois, un pas fin 
correspondant à une progression de 1 degré. Ainsi, les régions inintéres- 
santes du ciel sont-elles parcourues à grande vitesse, tandis que les zones 
“sensibles” sont explorées en détail. 

Par ailleurs, on rapporte tous les aspects recherchés à des conjonctions. 
Pour ce faire, on initialise la table WORK (1) de la façon suivante. 
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Chaque point sensible du thème (planètes et cuspides des maisons) 
donne naissance à quatre éléments de WORK (1) : le point lui-même, deux 
points distants de +90 degrés et — 90 degrés (carrés) et un point à 
180 degrés (opposition). La table WORK (1) comptera donc 64 éléments 
(10 planètes + 6 maisons X 4). 

Ainsi, WORK (1) contiendra la longitude du soleil, WORK (2) et 
WORK (3) la longitude des deux points en quadrature avec le soleil, et 
WORK (4) la longitude du point opposé au soleil. 

Le sous-programme de recherche des transits se décompose en trois 
parties. 


1. Entrée des données et calcul des paramètres fondamentaux (11240 à 
11470). 


2. Initialisation du tableau WORK (1) (11480 à 11590). 
3. Boucle de recherche (11670 à 11840). 


Trois routines sont utilisées dans ce sous-programme : 


e Calcul de la longitude de la planète transitante (11620 à 11660). 


e Recherche du type d’aspect détecté en fonction de la position du point 
repéré dans la table WORK (1), qui s'effectue de 11860 à 11910. 


e Sortie des résultats (12080 à 12160). 


Pour chaque planète transitante, il faut préalablement définir les deux 
pas d’incrémentation utilisés dans les boucles de recherche. 

Le premier, correspondant sensiblement à une progression de 10 degrés. 
est contenu dans une table D, (1) ; le second dans une table D; (1). Tous 
deux sont définis dans la section “Initialisation”, des lignes 30590 à 30670. 


20890 REM 36 TRANSITS HD DEEE DE DD DH DD DD DD DÉDE DD DD DD DIE DE DD DE DE DD DE DE DE DE 
10600 DATA .025,.25,.25,.8,1.5,2,5,7,10 

10610 FOR I=1 TO 9 

0620 READ Di : Di(I1)=D1/1200 

‘0630 NEXT 

10640 DATA .08,.66,.7,2.5,5,7,15,25,40 

‘0650 FOR I=1 TO 9 

20660 READ D? : D2(1)=D2/36525 

30670 NEXT 


L'entrée des données s'effectue comme suit. 


112 240 REM 22 6 DEEE DEEE DEEE TRANSITS eee DH DD DD DD DEEE DD DEN DD DEEE 
CLS : FRINT'LE THEME DONT ON VEUT CALCULER LES TRANSITS EST-IL EN MEMOIRE” 


C=0:GOSUE 21180:1F NOT(FLCH) THEN GOSUE 10260 
255 FLIF=-1:FLOP=- 1 

11260 MODE 2 : CLS 

11270 TITRE#=" TRANSITS FLANETAIRES " 
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1280 FRINT SFC(TO)TITRES : FRINT 3 FRINT 
1:90 FRINT SFC(20)" LES FLANETES SONT REFEREES DE 1 (LUNE) À 9 (FLUTON)'": PRIN 


O0 FRINT SFC(20)" ENTREZ LE NUMERO DE LA PLANETE À ETUDIER “3:INPUT CH 
O IF CH>9 THEN 11740 

O LÆINT C(BO-LEN(FLE (CH+#+1)))/2) 

2 D1=D1 (CH) : DZ2=D2 (CH) 

D FRINT:FRINT SFC(20)" IMPRESSION ‘“ 

Oo C=0:GOSUR 21180 : FLFRT=FLCH 

» IF FLFRT THEN GOSUEH 17000 

3 IF FLFRT THEN FRINT #8,STRING# (28,42) +TITRES$+STRING+# (28,42) 
270 1F FLFRI THEN FRINT #B,STRING#(L,42)+FL#(CH+1) +STRINGS# (L,42) 
380 FRINT : FRINT SFC(20)"ENTREZ LA DATE DE DEBUT DE L'ETUDE"; 

11290 INFUT D# 

11400 GOSUKH 20680 







11410 IF FLD THEN FRINT" DATE ERRONEE ‘“: GOTO 11380 
11420 FRINT : FRINT SFC(20) "ENTREZ LA DUREE D'ETUDE SOUHAITEE" 
1410 FRINT : PRINT SFC(ZO)"EN MOIS FOUR LA LUNE, EN ANNEES SINON'; 


11440 INFUT FT 

1450 IF CH=i THEN FT=FT/1200 ELSE FT=FT/100 
11460 GOSUE 21050 

11470 FIN=T+FT 


COMMENTAIRES 


Lignes 11245-11250 


Pour déterminer les transits affectant un thème natal, les tables LP (1) et 
LM(I) doivent contenir les longitudes respectives des planètes et des 
pointes des maisons. Si le thème vient d’être calculé, ces tables sont 
convenablement remplies et le programme continue en séquence. Dans le 
cas contraire, l'instruction GOSUB 10260 initialise ces tables. 


Ligne 11255 


FLIP et FLOP remplissent leur rôle habituel: permettre d'imprimer 
deux résultats sur une même ligne. 


Lignes 11260 à 11310 


Soignons les commentaires destinés à l’utilisateur, il en restera toujours 
quelque chose. Le test en 11310 vérifie que l’indice affecté à la planète 
transitante est valide. 


Ligne 11320 


Calcul d'une variable auxiliaire pour centrer le nom de la planète 
transitante sur l'imprimante. 


Ligne 11330 


On affecte aux variables D, et D; les pas d’incrémentation utilisés lors 
de la recherche. 
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Lignes 11340-11350 


Elles demandent à l'utilisateur si une sortie sur imprimante est 
souhaitée. 


Lignes 11360-11370 


Dans le cas d’une impression sur papier. elles effectuent la mise en place 
des en-têtes. 


Lignes 11380 à 11410 


Elles effectuent l'entrée de la date de début d'étude et le test de celle-ci. 


Lignes 11420 à 11440 


Entrée de la durée pendant laquelle on désire étudier les transits. 


Ligne 11450 


Elle convertit FT (durée d’étude) en fraction de siècle. 


Ligne 11460 


Elle calcule (à partir de la date de début d'étude) le nombre de jours 
écoulés depuis le 1° janvier 2000. 


Ligne 11470 


Elle calcule le moment de fin d'étude. 


La section suivante effectue l’initialisation de la table WORK (1). 


11480 FOR læ1 TO 10 

11490 WORK (4xI-7)#LF (1) 

11500 RC&LF(1)+90 : GOSUR 1930 : WORK (4#1-2) =RC 
O ROCSLF(1)-90 : GOSUR 1970 : WORK (4#1-1)=RC 
O RC=LF(1)+180: GOSUR 1920 : WORK (4%#1)=RC 
1185230 NEXT 

31540 FOR I=1 TO 6 





11550 WORK (40+4#I-—7) =LM(I) 

11560 RC=LM(I1)+90 : GOSUR 19230 : WORK (40+4%1-2) =RC 
11570 RC=LM(1)-90 : GOSUR 19250 : WORK (40+4%1-1)=RC 
11580 RC=LM(I)+180: GOSUER 1930 : WORK (40+4%I)=RC 
11590 NEXT 


Lignes 11480 à 11530 


Comme indiqué précédemment, on effectue l’initialisation de 
WORK (I) pour les planètes: chaque position planétaire génère quatre 
éléments de la table. 
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Lignes 11540 à 11590 


La même opération est ici réalisée pour les cuspides des six premières 
maisons. 


Notez l'appel à la routine de recentrage (GOSUB 1930), utile dans les 
cas où les points en carré ou en opposition ont une longitude inférieure à 
0 degré ou supérieure à 360 degrés. 

Les deux lignes suivantes impriment l’en-tête à l’écran (11600) et 
esquivent la routine de calcul de la longitude de la planète transitante. 


11600 CLS : FRINT SPC(3O)"TRANSITS DE ‘";PL$(CH+1): PRINT 
11610 GOTO 11670 


Les lignes 11620 à 11660 permettent de calculer la longitude de la 
planète transitante. 


11620 GOSUB 1:70: KEM #*#*#x*x ROUTINE INTERNE CALCULE LG ####3%3% 
11625 IF CH=1 THEN GOSUR 2950 :LG=L: GOTO 11650 

11670 ON CH-1i GOSUEH 2050,2140,2220,2700,2440,2580,2720,2870 
11640 GOSUB 1030:GOSUB 11270:GOSUB 1270 

11650 LG=LG#180/FI:RC=LG: GOSUB 1930:LG=RC 

11660 RETURN 


Ligne 11625 


Cas de la lune. 


Lignes 11630-11640 


Les autres planètes. 


Ligne 11650 


Transformation en degrés et recentrage. 


BOUCLE DE RECHERCHE 


11670 REM #*#%** DEBUT BOUCLE RECHERCHE ##### 
11680 DEB1=T : FINI=T+D1 : CPTA=0 

116970 MARQ=0O : T=DEB1 :GOSUB 11620 

11700 FOR K=1 TO 64 

11710 IF ABS(WORK(K)-LG)<10 THEN MARG=MARQ+1 : BOUGE (MARG) =K 
11720 NEXT K 

11730 IF T>=FIN THEN RETURN 

11740 IF MARQ=0 THEN 11820 

11750 REM RECHERCHE FINE ##+# 

11760 FOR T=DEB1 TO FINI STEF D2 

11770 GOSUB 11620 
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11780 FOR K=1 TO MARQ 

11790 IF ABS (WORK (BOUGE (K))-LG)<1 THEN GOSUB 11860 :GOSUB 11920:GOSUB 12080 
11800 NEXT K 

11810 NEXT T 

11820 DEBI=FINI 

11830 FIN1=DER1+Di 

11840 GOTO 11690 

11850 REM FIN DU CALCUL DES TRANSITS #2 46 4626 046 DE DE DE DE DD DE DE DE DD DE DD DD DE DE DE DE EDEN 


COMMENTAIRES 


Lignes 11670-11680 


DEBI1 est la limite inférieure de la boucle de recherche. FINI est la 
limite supérieure qui correspond à un temps situant la planète transitante 
10 degrés plus loin. CPTA effectue comme d'habitude le compte des 
sorties. 


Ligne 11690 


MARQ est la variable qui contiendra le nombre de points aspectés lors 
de la recherche grossière. Cette ligne est la première de la boucle, on y 
calcule la longitude de la planète transitante à l'instant T. 


Lignes 11700 à 11720 


On compare LG à chacun des points du tableau WORK(K). Pour 
chaque aspect repéré, on incrémente MARQ et on relève dans un tableau 
BOUGE (X) l'indice, dans la table WORK, du point à moins de 10 degrés 
de LG. 

Ligne 11730 


Si T a atteint FIN, on retourne au programme appelant. Le GOSUB 
30700 imprime le message ENTER POUR CONTINUER et attend la 
pression d’une touche. 


Ligne 11740 


Si MARQ = 0, aucun point de WORK (I) ne se trouve à moins de 
10 degrés de LG. On passe alors en 11820 en évitant la boucle de recherche 
fine, alors inutile. 


Lignes 11750 à 11810 


Boucle de recherche fine. Cette recherche s'effectue pour T variant de 
DEB1 à FINI, avec un pas D:. 


Ligne 11770 
On recalcule LG. 
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Ligne 11780 


L'intérêt de MARQ et de BOUGE(K) apparaît ici. Ayant repéré le 
nombre de points à moins de 10 degrés et leurs indices (BOUGE (X)) dans 
dans la table WORK. il n’est pas utile d'effectuer la recherche fine sur tous 
les éléments de WORK. mais seulement sur les points repérés. 


Ligne 11790 
Les trois appels de routines effectuent respectivement : 
La détermination de l'aspect (11860). 
Le calcul de la date en fonction de T (11920). 
La sortie des résultats (12080). 


Lignes 11820-11830 


On affecte de nouvelles valeurs à DEB1 et FINI pour poursuivre la 
recherche. 


Ligne 11840 


Exploration d'une nouvelle période. 


Remarque 


Pensez à dimensionner BOUGE(X) en complétant la ligne 30020 par 
BOUGE (64) (il vaut mieux surdimensionner un tableau que risquer un 
dépassement d'indice). 


Présentons les deux routines (détermination du type d’aspect et sortie 
des résultats). 


DÉTERMINATION DU TYPE D'ASPECT 


11860 TR=ROUGE (K) 


1870 11=1+(TR-1)ç4 

11880 IF TR MOD 4 = 1 THEN ASF=1 

1890 IF ( TR MOD 4 = 2) OR ( TR MOD 4 = 3 ) THEN ASF=Z 
11900 1F TR MOD 4 = © THEN ASF=5 


11910 RETURN 


COMMENTAIRES 


Rappelons que, dans la table WORK, les quatre premiers éléments se 
rapportent au Soleil, les quatre suivants à la Lune, et ainsi de suite 


— 100 - 


jusqu’au quarantième pour les dix planètes ; les 24 éléments suivants se 
rapportent aux cuspides des six premières maisons. 


Ligne 11860 
On affecte à TR l'indice dans WORK (K) de l'élément étudié. 


Ligne 11870 


L'opérateur donne le quotient entier d’une division. IT représente donc 
l'indice (1 à 10 pour les planètes, 11 à 16 pour les maisons) qui permettra 
l'accès aux tables PLS et MAIS$ pour la sortie des résultats. 


Ligne 11880 


L'opérateur MOD fournissant le reste d'une division, on a trouvé ici le 
premier d’une série de quatre éléments de WORK. soit une conjonction 
entre la planète transitante et un point sensible du thème. 


Ligne 11890 


On a trouvé ici le deuxième ou le troisième élément d’une série de 
quatre, soit un carré. 


Ligne 11900 


Idem pour une opposition. 


SORTIE DES RÉSULTATS 





Il faut préalablement définir un nouveau format de sortie. 
30290 FT$=“b\bbbbb\bbbb\bbbbb\bbbb##b# #b# # ##b" 


La première zone alphanumérique recevra le type d'aspect, la seconde le 
nom de la planète transitée, les trois zones numériques contenant la date 
du transit. 


2080 KEM IMPRESSION DES TRANSITS mm nn NN 
CPTA=CFTA+1 

O IF IT£11 THEN WJ#=FL#(IT) ELSE WJ#=MAIS#(IT-10) 

12100 1F FLIF THEN PRINT USING FT#; ASMA# (ASF) ,WJ# , JOUR, MOIS , ANNEE ; : FLIF=NOT (FLI# 
>:GOT0 12120 

12110 FRINT" * "se PRINT USING FT#3; ASMAS# (ASF) ,WJ#,JOUR , MOIS, ANNEE: FLIF=NOT ( 






IF NOT(FLFRT) THEN 12150 

1 IF flop THEN FRINT #8,USING FT#:ASMA# (ASF) ,WJ#,JOUR,MOIS, ANNEE ; : FLOF=NOT 
(FLOF) : GOTO 12160 

12140 FRINTH#B,STRING# (7,12); :FRINT #8,USING FT$; ASMAS# (ASF) ,WJ$ , JOUR, MOIS, ANNEE 
: FLOF=NOT (FLOF) 

12150 IF CFTA MOD 48 = © THEN C=0 : GOSUEH 30700 

12160 RETURN 
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La structure de ce sous-programme doit vous être familière. On y 
retrouve CPTA pour éviter un déroulement d’écran intempestif ; FLIP et 
FLOP jouent le rôle de bascules (respectivement pour l'écran et 
l'imprimante) afin d'afficher deux résultats par ligne ; enfin WJ$ contient le 
nom du point aspecté, qui peut être une planète ou une maison et dont la 
valeur est affectée en 12090. 


TEST 


Tous les modules décrits jusqu’à présent étant supposés résidents en 
mémoire, le test du programme de transits tient en quelques lignes : 


50000 GOSUB 30000 : REM INITIALISATION 
50010 GOSUB 11240 : REM TRANSITS 
50020 END 


puis, RUN 50000 en mode direct. 

Vous constaterez, lors du test, qu’un même transit est parfois affiché à 
des dates différentes. 

Lorsque ces dates sont voisines, cela a pour cause le fait que le 
programme affiche tout transit détecté à 1 degré près. La vitesse de 
progression des planètes n'étant pas constante, il arrive fréquemment que, 
durant le pas temporel D;, la planète transitante ait moins progressé que 
prévu. N'oubliez pas que les planètes forment parfois des boucles, 
deviennent rétrogrades ou stationnaires… 

Lorsque les dates sont relativement éloignées, c’est que la planète 
transitante effectue une boucle. 

Vous trouverez dans le Chapitre 13 quelques suggestions permettant 
d'affiner la recherche des transits. 
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12 








MENU GÉNÉRAL 





Vous voici parvenu au terme de vos efforts. Au fil des pages, vous avez 
découvert comment calculer les positions des planètes, domifier un thème, 
rechercher ses aspects et ses points fictifs. Vous avez mis à profit ces 
connaissances pour dresser une révolution solaire, comparer deux thèmes 
et rechercher les transits affectant un thème. 

Le moment est venu d'organiser les modules que vous avez entrés en 
mémoire, pour en faciliter l'accès et permettre une utilisation simple et 
agréable de ce logiciel. 

Vous avez pu constater que. plus vous avanciez dans ce livre, plus les 
séquences de test se simplifiaient. Le menu général peut être comparé à 
une ultime séquence de test qui permettrait l’utilisation de n'importe 
quelle partie du programme. 





10020 REM 40606 06 0606 DD H DD ADD DD DE DE DE DÉ DD DD HE DD DE DE DEEE DD DEHE DE DD DE DEEE DD DD DE 
100230 REM 4e 0e 6 0 DD DD DE DE HHH DD DD DD DE DH DE DE D DE DD DD DEEE DEEE 
10040 REM #n###############uex DERUT / MENU DEMDNDEDE DE DD DD DD DEEE DEEE DE 
10050 REM 46 462626866006 DD JDA JE HD D DE DD EH HE DE HD DE DD DD DE DD DE DD DD 
10060 REM #40 #0 HD ND DD DH DH DE HE HE DDRM D DE DE DE DEEE DE DEEE DEEE DEEE DEEE 
10070 REM 


10080 GOSUE 70000 
10090 GOSUER 25420 
10100 MODE 2:CLS : LOCATE 1,3 

10110 FRINT SFC(IO)STRINGS (15,42) 
10120 FRINT SFC(3O0)'"## ASTROCALC ##" 
10170 FRINT SPC(I0)STRING# (15,42) 
10140 PRINT : PRINT : PRINT 
10150 FRINT : FRINT SFC(20)" 
10160 FRINT : FRINT SPC(20)" 


THEME NATAL" 
REVOL SOLAIRE" 





10170 PRINT : FRINT SPC(20) COMPARAISON" 
10180 PRINT : FRINT SPC(20)" TRANSITS" 
REM 
o REM 
0 REM 
PRINT : PRINT : PRINT 
Q PRINT SFC(20)"";:INPUT "CHOIX.......... "3 CH 


IF CH>4 THEN 10100 
O0 ON CH GOSUB 10260,10480,10700,11240 
10250 C=S :GOSUB 30700 : GOTO 10100 





COMMENTAIRES 


Lignes 10020 à 10070 


Cet en-tête bien visible permet de retrouver rapidement le menu lors 
d'un déroulement du programme à l'écran. 


Ligne 10080 


Initialisation du logiciel. 


Ligne 10090 


Définition des symboles graphiques. 
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Lignes 10100 à 10140 


Elles impriment le titre du logiciel après avoir placé l'écran en mode 2 et 
“fait le ménage”. 


Lignes 10150 à 10180 


Elles présentent à l'écran les options de base du logiciel. 


Lignes 10190 à 10210 


Elles présentent à l’écran les options personnalisées que vous jugerez 
utile d'inclure (le Chapitre 13 vous donnera certainement des idées). 


Lignes 10220 à 10235 


Elles permettent l’entrée de l'option désirée. Si vous ajoutez vos propres 
options, pensez à modifier le test de CH en ligne 10235. 


Ligne 10240 


Elle effectue le saut à la routine adéquate. 


Ligne 10250 


Elle imprime (GOSUB 30700) le message “ENTER POUR 
CONTINUER”, attend la frappe d’une touche et retourne au menu. 


TEST 


Ajoutez la ligne: 
1000 GOTO 10020 


Frappez RUN. 


REMARQUE CONCERNANT L'UTILISATION D'UNE IMPRIMANTE 


Si vous utilisez ce logiciel avec une imprimante. il peut s'avérer utile de 
configurer celle-ci en un mode d'impression particulier. 
Deux possibilités s'offrent à vous: 


1. Inscrire en tête du programme (avant le saut au menu) la séquence 
d'instructions effectuant la configuration de l'imprimante. Dans ce cas. 
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le programme ne démarrera que si une imprimante est connectée et 
sous tension. 


2. Créer une routine effectuant la configuration et l'appeler, après un test 
de FLPRT, dans chacune des options du menu. Pour une Epson LX-80, 
voici une séquence permettant l'impression en caractères “Élite”, 
double frappe avec un interligne réduit : 


13000 REM ##*# CONFIGURE L'°IMPRIMANTE 436-2626 2646 D DE ED DE DE DD ED DE DD DE DD DE DD DE DE DEEE DE DE DEN 
13010 PRINT #8,CHRS$ (27) "G"3 

13020 PRINT #B8,CHRS# (27) "M"; 

13030 FRINT #8,CHRS$(27)"1"3 

13040 RETURN 


Les points d'appel, créés par une ligne 
IF FLPRT THEN GOSUB 13000 
seront positionnés en 10315, 10535, 10825 et 11355. 
Voilà ce logiciel dans sa version de base, achevé ; à vous maintenant de 


l'exploiter et, pourquoi pas, de le personnaliser. Le chapitre suivant vous 
donnera quelques idées à ce sujet. 
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13 
POUR ALLER PLUS LOIN... 





Le logiciel ASTROCALC, tel qu'il est conçu et expliqué dans cet 
ouvrage, est totalement ouvert. Vous en connaissez maintenant tous les 
mécanismes internes, ce qui n’est pas le cas pour les disquettes d’astrologie 
que l’on trouve habituellement dans le commerce. 

Vous pouvez le considérer comme une boîte à outils et créer de 
nouvelles applications si vous le désirez. Nous donnons ici quelques 
suggestions qui vont dans ce sens. Les lecteurs curieux, les tenants 
d’astrologies non occidentales (arabe, hindoue, égyptienne, chinoise, etc.) 
trouveront certainement d’autres idées pour élargir les possibilités de ce 
logiciel. 

Nous avons sélectionné ici une dizaine d'extensions possibles 
d'ASTROCALC, qui se programment facilement et s’intègrent sans 
difficulté aux routines que vous avez entrées en mémoire. Nous les avons 
regroupées en neuf catégories : les progressions ; les problèmes de temps ; 
les lunaisons ; les déclinaisons et les parallèles ; les systèmes de domifica- 
tion autres que celui de Placide ; la Part d’Esprit ; des compléments sur les 
transits ; la prise en compte de la précession des équinoxes et l'impression 
de tables d'éphémérides. 








LES PROGRESSIONS 





Le système des directions secondaires le plus couramment pratiqué 
consiste à faire correspondre une journée à chaque année de vie. Ainsi, 
pour une personne née le 10 juillet 1943, les positions planétaires relevées 
le 30 juillet 1943 correspondront à l’âge de 20 ans. 

En utilisant l'option “THÈME NATAL”, on peut dresser le thème 
progressé correspondant à un âge quelconque du sujet. 

Il est également possible de créer une option spécifique permettant de 
déterminer les positions des planètes progressées, année après année. 

Il suffit alors de parcourir une boucle en faisant varier le temps d'un 
incrément égal à 36525 soit 2.73785 E —5 et de calculer les positions 
planétaires pour chaque valeur du temps. 

Les progressions secondaires converses sont programmables de la même 
manière. 





PROBLÈMES DE TEMPS 





Les sous-programmes existants peuvent être complétés par le calcul de 
l'heure correspondant à un temps en siècle, la détermination du jour de la 
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semaine correspondant à une date donnée et le calcul de l'heure en TU à 
partir de l’heure légale pour la France. Nous verrons aussi comment 
étendre le programme au XVII siècle. 


Calcul de l’heure correspondant à un temps en siècles T 


Dans le programme du calcul de la date correspondant à un T donné 
(11920-12040), nous avons négligé l'heure. Dans certaines applications (les 
révolutions lunaires par exemple), l’astrologue voudra connaître l'heure 
exacte à laquelle se produit un phénomène céleste. Il n’est pas difficile 
d'introduire cette précision supplémentaire. 

L'heure en fraction de jour à partir de O0 h le jour calculé par le 
programme en 11920 est simplement la partie décimale du nombre N,; 
calculé ligne 11925: 


HJ = N; — INT (Ni) 
et on trouve immédiatement l’heure HH et les minutes MN par: 


HH = INT (24 * HJ) 
MN = 60 + (24 + HJ — HH) 
Jour de la semaine correspondant à une date déterminée 


Traditionnellement en astrologie, chaque jour de la semaine est régi par 
une planète particulière : la Lune le lundi, Mars le mardi, etc ; il est donc 
utile de savoir à quel jour correspond une date donnée. Pour calculer le 
jour de la semaine correspondant à une date donnée distante de N jours du 
1°" janvier 2000, qui est un samedi, il suffit de déclarer un tableau 
JSEMS (7) qui contient les chaînes de caractères des jours de la semaine du 
lundi au dimanche, puis d’ajouter deux instructions. 


e Après la ligne 21160: 
JS = INT (NBJ + 5) MOD 7 :JS$ = JSEMS(JS + 1) 
dans le programme de calcul de T à partir de la date. 
e Après la ligne 11925: 
JS = INT (N1 + 5) MOD 7 :JS$ = JSEMS(JS + 1) 
dans le programme de calcul de la date à partir du temps, et enfin 
d'imprimer la chaîne de caractères JS$ qui contiendra alors le nom du jour 


de la semaine correspondant. 
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Détermination automatique de l’heure TU en France 


L'Annexe II contient des tables permettant de trouver l'heure en Temps 
Universel pour la France. Plutôt que d’avoir à consulter ces tables, le 
lecteur peut souhaiter faire cette opération de manière automatique en 
incluant un sous-programme de conversion des heures légales en France. 

Nous ne donnerons pas ici le détail de la programmation, mais 
simplement les grandes lignes. 

Nous partirons des considérations suivantes : 


e Jusqu’en 1940, l’heure légale est l’heure TU, sauf pendant certaines périodes 
(tableau A.II.1 page 123) où l’heure est TU + 1. 


e A partir de 1940, l’heure légale est TU + 1, sauf pendant certaines périodes 
(tableau A.II.2 page 124) où l’heure est TU + 2. 


On peut donc calculer en siècles le temps T qui correspond au début et à 
la fin de chacune des périodes pendant lesquelles s’applique l’heure d'été, 
en avance d’une heure sur l’heure habituelle. Cela étant fait, on introduit 
quatre tableaux de DATA: 


DHEI1 Temps du début de l’heure d’été avant 1940. 
FHE1 Temps de la fin de l’heure d’été avant 1940. 
DHE2 Temps du début de l’heure d’été après 1940. 
FHE2 Temps de la fin de l’heure d’été après 1940. 
Soit HL l'heure légale, HTU l'heure en temps universel ; on aura 
HTU = HL +1 
s’il existe un indice i tel que: 
ANNÉE < 1940 et DHE, (1) <T <FHE, (1) ; 
HTU = HL +2 
s’il existe un indice j tel que: 
ANNÉE > 1940 et DHE;(J) <T <FHE, (J). 
Il est possible, si l’on dispose d’un système disque, de constituer un 
premier fichier de données qui contient le début et la fin des périodes 
d'heures d'été en jour/mois/année et heures/minutes, puis de lui appliquer 


le programme de transformation de la date en temps en siècles et de 
stocker le résultat dans un nouveau fichier qui sera alors fusionné au 
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programme ASTROCALC. Nous laissons au lecteur le soin de trouver par 
lui-même la manière exacte de procéder. 


Extension du programme au XVIII* siècle 


Lors de l’entrée d’une date pour dresser un thème de naissance, nous 
avons exclu les dates antérieures à 1800, car nous ne pouvons pas garantir 
une erreur inférieure à 0,5° dans la position des planètes avant le 
xIx° siècle. Il est très facile d'inclure le XVIII siècle dans le champ du 
programme, puisqu'il suffit de modifier trois lignes ainsi: 


ligne 11930  DEBS = — 109572 
ligne 11935 KS = 0 TO 4 
ligne 20760 ANNÉE < 1700 


L'erreur sur la position d’Uranus, Neptune ou Pluton peut alors 
atteindre 2° en plus ou en moins. Mais il faut remarquer que ces planètes 
n'avaient pas encore été observées au XVIII° siècle (sauf Uranus à partir de 
1781). Sur le plan astronomique, les développements des éléments de leurs 
orbites (donnés au Chapitre 3) ne peuvent donc pas être vérifiés. Sur le 
plan astrologique, les avis divergent quant à l’influence d’une planète avant 
sa découverte par les astronomes... 


LES LUNAISONS 





Les astrologues comme Dane Rudhyar, qui accordent une importance 
considérable aux cycles de la Lune, font la différence entre le cycle de la 
position zodiacale et celui de la phase. 

Le cycle de la lunaison se réfère à la période synodique de la Lune 
(durée entre deux nouvelles Lunes) qui dure en moyenne 29 jours et demi. 
La révolution lunaire correspond au retour de la Lune à un même point du 
zodiaque ; c’est un cycle de positions, de période 27 jours 7 heures et 
demie environ (période sidérale). 

Pour programmer les calculs correspondants, il n’existe pas d’autre 
solution que de faire une boucle d’un pas correspondant à la précision 
recherchée (en général un quart d’heure, soit 2,85 : 1077 siècle), de 
calculer la longitude de la Lune à ce moment-là et de la comparer soit à 
celle du Soleil pour le cycle de la lunaison, soit à celle de la Lune de 
naissance pour une révolution lunaire. 

Pour une révolution lunaire on peut prendre, comme première valeur 
approchée du premier retour de la Lune à la position qu’elle occupait au 
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temps T, le temps T’ = T +7, 4777 : 107* et procéder ensuite comme pour 
les révolutions solaires (lignes 3810-3920). 

Pour un cycle de lunaison, si l’on sait que le temps T correspondait à une 
nouvelle Lune, le temps T’ de la nouvelle Lune suivante est approximati- 
vement T' = T + 8,0852 + 10“; on procède ensuite comme pour les 
révolutions pour trouver le temps exact de retour à la nouvelle Lune, en 
calculant à chaque itération la position de la Lune et celle du Soleil jusqu’à 
ce que leur différence soit inférieure à 3 : 107 ° radians. 

Si l’on veut connaître le moment exact de la nouvelle Lune ou de la 
révolution lunaire, il faut compléter le programme de transformation du 
temps en date comme indiqué précédemment, en lui ajoutant le calcul de 
l'heure et l'impression de celle-ci. 

Pour trouver la première nouvelle Lune qui suit un temps T, sachant 
qu'à cet instant la différence des longitudes de la Lune et du Soleil est æ, il 
suffit de faire une boucle de recherche de nouvelle Lune à partir du temps 
T'=T-(1:999%6ç +8 : 0852) : 107 *. 


LATITUDES, DÉCLINAISONS ET PARALLÈLES 


Nous avons limité le programme au calcul de la lonitude des planètes, 
car la plupart des astrologues n’utilisent que cette coordonnée écliptique. 
Cependant, il est très facile d’ajouter le calcul de la latitude et de la 
déclinaison d’une planète à partir des éléments déjà calculés. 

Il est nécessaire d'introduire une table BP (10) ou DEC (10) pour ranger 
les latitudes ou les déclinaisons. Elles sont données, en reprenant les 
symboles utilisés dans les sous-programmes de changements de coor- 
données, en 1130 et 1270 par: 


ZP 
VXP? + YP? + ZP? 


sin (DEC) = cose * sin (BP) + sine * cos (BP) * sin (LG) 


sin (BP) = 


Il faut introduire des variables auxiliaires XB et XD: 


ZP 


XB = 
VXP? + YP? + ZP? 





XD = 0 : 917408 * sin (BP) +0 : 397949 + cos (BP) * sin (LG) 
grâce auxquelles on écrit : 
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BP = ATN (XB/SOR (1 — XB + XB)) 
DEC = ATN (XD/SOR (I — XD + XD)) 


L’impression des résultats peut se faire en utilisant le même format que 
pour les planètes (ligne 30320). 

La latitude BHL de la Lune s’obtient par une somme de sinus analogue à 
celle qui exprime sa longitude, et qui utilise les mêmes angles fonda- 
mentaux : 


BLH = 0 - 089 504 sin F + 0 : 004897 sin (ML + F) + 0 : 004847sin(ML — F) 
+0 : 003024 sin (2 D — F) + 0 - 000967 sin (2 D + F - ML) 


+ 0 : 000 808 sin (2D — F — ML) + 0 - 000569 sin (2D+F) + 0 - 0003 sin (2ML+F) 


La recherche des aspects peut alors être complétée par la recherche des 
parallèles. Deux planètes sont en parallèle si elles ont même déclinaison ; 
l’orbe généralement accepté pour un parallèle est de 1°. Il ne faudra pas 
oublier de compléter les tableaux ASMA, ASMA$ et OMA dans 
l'initialisation et de remplir le tableau WORK avec les déclinaisons des 
planètes, de la Lune à Pluton, dans la routine en 3530. 


AUTRES SYSTÈMES DE DOMIFICATION 


Domification des maisons XI, XII, I et III selon Montroyal 


Ce procédé, appelé aussi modus rationalis, est attribué à l’astronome et 
astrologue Johann Müller (XV° siècle), dont les pseudonymes furent 
Regiomontanus, Montereggio et Montroyal. Les pointes des maisons sont 
déterminées de telle sorte qu’elles divisent l’équateur en douze parties 
égales. 

Le calcul procède de la même manière que dans le système de Placide, la 
seule différence étant la nouvelle latitude l’ prise comme entrée du 
sous-programme de calcul d’un ascendant, qui est 


Arctg G - tg €). Arctg es * tg €). Arctg PS - tg €). et 


1 
Arctg 5 - tg 4) 
respectivement pour les maisons XI, XII, II, HIT. 


— 113 - 


Il suffit donc de changer la ligne 1760 en: 
LAD = ATN(TAN(LAT)*REGIO(JP)/2) 
avec le tableau REGIO défini en 30430-30460 par : 
DATA 1,1 - 73250808, 1 - 73250808,1. 


Domification des maisons XI, XII, II et III selon Campanus 


Ce système, imaginé par un géomètre italien du xIli° siècle, revient à 
diviser l'horizon en douze parties égales: l’ascendant correspondant 
toujours à l'Est et le milieu du ciel au Sud, les pointes des maisons sont les 
longitudes écliptiques des angles successifs de 30° comptés à partir de 
l'ascendant. 

On peut se ramener ici encore au calcul d’un ascendant, mais la latitude 
et le temps sidéral servant d’entrées au sous-programme pour chaque 
maison prennent une forme un peu différente : 















Maison | Nouvelle latitude £’ 
XI Arcsin F * Sin 4) TS — Arcsin Cars 
XII Arcsin PS. sin 4) TS — Arcsin Cd) 

Ï Arcsin F2. sin €) TS + Arcsin Per 
M, Arcsin És + Sin 4) TS + Arcsin ES) 

















Il est nécessaire de modifier les lignes 1760-1770, qui deviennent : 
X=SIN(LAT):CAMP1(JP) 
LAD=ATN(X/SQR(1-X:X) 
X = SQR(1 -CAMP2(JP):CAMP2(JP))/COS(LAD) 
TX=TSRD +ATN(OCVSQOR(1 —-X:X))(1+2+(JP 3)) 


avec les deux tableaux 





44. V3 V8 1 
GAMPIE Se Sn 
- AVE EL NT 
CAMP2: 5, 3, 2 5 


LA PART D'ESPRIT 


Quelques astrologues utilisent pour l'interprétation, en plus de la Part de 
Fortune, cet autre point fictif qui est le symétrique de la Part de Fortune 
par rapport à l’ascendant. Avec les notations du programme, sa position 
PE est donnée par: 


PE = PL (1) + PM(1) — PL (2). 


COMPLÉMENT SUR LES TRANSITS 


Concernant le calcul des transits, le programme proposé ne délivre que 
les dates des transits à 1 degré d’orbe près. 

Pour une planète d’indice IP, il est possible de créer un sous-programme 
donnant la date du transit exact. Ce sous-programme exploitera les 
résultats fournis par le programme de recherche des transits existant. 

On sait que la variable D,(IP) donne approximativement, pour la 
planète d’indice IP, le temps (exprimé en fraction de siècle) que celle-ci 
met pour avancer d’un degré dans le zodiaque. 

Si e est la précision demandée, et T, le temps repéré par le programme 
auquel le transit (à 1 degré près) a eu lieu, il suffit de recalculer dans une 
boucle (pour T variant de To — D,(IP) à To + D:(IP)) les positions 
successives de la planète transitante. 

Lorsque la valeur absolue ABS(LG — LO), LO longitude du point 
transité, est inférieure à e, la conversion de T en date fournira la date 
exacte du transit. Dans les cas de stationnarité ou de faible vitesse de la 
planète transitante, 1l est possible que la date exacte du transit soit 
extérieure à l'intervalle TO — D; (IP), To + D: (IP); il suffit alors d’aug- 
menter cet intervalle. 

Le programme de recherche des transits ne tient compte que des transits 
par conjonction, carré ou opposition, considérés comme seuls influents par 
maints astrologues (voir Manuel pratique d'astrologie, G. Antarès, 
page 280). Si vous désirez détecter les transits par trigone, sextile ou autre, 
il suffira de modifier la structure de la table WORK et le sous-programme 
de détermination de l’aspect. 

Dans le cas des transits lunaires, il peut être utile de donner l'heure à 
laquelle se forme l’aspect. La détermination de l'heure ayant été décrite 
dans ce chapitre, il suffira de modifier le format des sorties pour l'y inclure. 

Les transits sont, dans le programme, calculés par rapport à un thème 
natal. Il sera aisé de le modifier pour permettre le calcul des transits par 
rapport à une révolution solaire ou à un thème progressé. 
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LA PRÉCESSION DES ÉQUINOXES 


Le mouvement giratoire de l’axe de rotation de la Terre, dû à l’attraction 
du Soleil sur son renflement équatorial, fait décrire à l’axe de rotation un 
cône de 23° 27’ autour du pôle de l’écliptique. Ce mouvement s'effectue en 
un peu moins de 26000 ans. Le résultat est que le point d’intersection de 
l'équateur avec l’écliptique rétrograde le long de l’écliptique de 5026 
environ par an. 

Les éphémérides et les tables disponibles en Occident donnent les 
longitudes des astres et des pointes des maisons dans le zodiaque mobile. 
L’astrologie occidentale, en général, ne s’intéresse qu'aux signes et néglige 
les constellations qui portent le même nom. 

Par contre, l'astrologie de l’Inde et certains astrologues occidentaux qui 
pratiquent une astrologie dite précessionnelle utilisent un zodiaque fixe, 
qui tient compte du décalage entraîné par la précession des équinoxes. 

Si vous voulez pratiquer ce genre d’astrologie, il faut soustraire la 
différence précessionnelle (appelée Ayanamsa) de toutes les longitudes 
(planètes et pointes de maisons) calculées dans le programme. 

La valeur de l’Ayanamsa AYNM est donnée par: 


AYNM = 0 : 414806 585 + 0 : 024435 268 * T 


en radians. 
Pour modifier les longitudes, le plus simple est de calculer AYNM en 


même temps que T et de le soustraire à chaque résultat en radians dès 
qu'on l’a obtenu. 
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ANNEXES 


JUSTIFICATIONS MATHÉMATIQUES 


Passage d’un système de coordonnées à un autre 


En plus des angles définis au Chapitre 2 dans la présentation des 
systèmes de référence, on appellera 


œg la latitude du lieu 
TS le temps sidéral TS = « — AH 


€ l'inclinaison de l’écliptique sur l’équateur. 


e Relation entre les coordonnées horizontales et équatoriales : 


sinh = sing: sinô + cosy : cosô : cos AH 

ét = cos Ô : sin AH 

8 (sin @ : cos Ô : cos AH — cos œ@ : sin 6) 
SinÔ = sing : sinh—cos@ : sinh : cosa 

BA = sin a 


(cosœ : tgh+sinç : cosa) 


e Relation entre les coordonnées équatoriales et écliptiques : 








sinf = cose : sinô — sine : cosô : sinæ 

(à __ (sine : gÔ +cose : sin) 

£ cos æ 

sinô = cose : sinfB+sine : cosB : sinÀ 
COSE * sin —sine tt 

ga = ( si ine : tgB) 


cos À 


e Relation entre les coordonnées sphériques et les coordonnées carté- 
siennes 


X=r:cosf cos Y=r:cosB :sinÀ Z=r:sinf 
Ces formules sont des formules classiques de la trigonométrie sphérique. 
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Première loi de Képler : relation entre l’anomalie excentrique et l’anomalie 
vraie 


Soit @ l’anomalie excentrique. 0 l’anomalie vraie et p le rayon vecteur 
(voir Figure 3.3). 
L'équation de l’ellipse en coordonnées polaires de centre S est 


a(1—e?) 


BTSME (1+e : cosô) 


La relation entre 8 et œ s'obtient avec: 


= 
SH=SO+OH soit cosq= (eosete) 


(1+e : cos) 


En exprimant cos 8 en fonction de tg () et cosg en fonction de tg () 
on obtient finalement a E 


ainsi que 





p=a(il-e:cosé). 


Seconde loi de Képler : relation entre l’anomalie excentrique et l’anomalie 
moyenne 


Nous avons cité au Chapitre 3 la seconde loi de Képler dans sa forme 
traditionnelle. Une formulation équivalente consiste à dire que l'aire 
parcourue par le rayon vecteur est proportionnelle au temps: 


D LE 2 
x |, pPde=xT 


; ns R 2 | : 
On identifie la constante k£ quand t = +. demi-temps de révolution de 
la planète ; l’aire est alors la moitié de l’aire de l’ellipse, donc 


PAT 2 
RCA EN à Game VITE 


2 2 R 


L'intégrale se calcule aisément en remplaçant 0 par qç : on a: 
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p?d8=a VI-e(1-e : cosy) : dp 
et par conséquent : 


L p?d 6 = 1—e? : (g—-e : sing = x Vi- + 
2 2 R 


d'où l'on tire l'équation de Képler : 


@=m+e : sine avec m=2xR 


Calcul approché de la date d’une révolution solaire 


Le Soleil ne repasse pas exactement à la même date à une position 
donnée au bout de k années et cela pour trois raisons : 


e L'année civile ne correspond pas à un tour complet de la Terre autour 
du Soleil ; le coefficient m, de T, dans la formule qui donne l’anomalie 
moyenne du Soleil en fonction du T, n’est pas exactement 2007 (ce qui 
correspondrait exactement à 100 révolutions par siècle julien) ; en fait, 
on peut écrire m, = 100 - (27 + m;), m pouvant être considéré comme 
un infiniment petit du premier ordre, puisqu'il vaut — 0,000 154 195. 


e L’excentricité de l'orbite terrestre varie lentement avec le temps ; si on 
pose e=eg+e; : T, e; = —0,000042 peut être pris comme un infini- 
ment petit du premier ordre également. 


e La longitude du périgée terrestre varie elle aussi lentement avec le 
temps ; si on pose w = wo + wi : T, w1 = 0,028 855 642, c’est encore un 
infiniment petit du premier ordre. 


> CNT k : 
Au bout de k années civiles, le temps T est devenue T + ——.mais la 


| ER LA 00 .. 
longitude correspondante €’ diffère légèrement de €. On va considérer 
que l'on va retrouver la longitude € en un temps qui diffère de 


Kk 
FT + —— un infiniment petit du premier ordre, dépendant des ttois 


infiniment petits M, Ww, et e1. 
Ecrivons 
Teri + XmM2 + YWi + ze 
100 
on doit avoir : 
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£{'=0'+w =0+w 


et, en se limitant aux termes du premier ordre : 


Ê= k_. 
W=wW+- W: 


+ (S d6 


d'=0+m : (K+xm) 3 100 * Mn) 


d8 , k  d@ 
+(em nr +100 de) 4 
Comme 
d8_ vVi-e? 


dm  (1-e : cos) 


et 


d8_ Vi — €? : sin @ 
de 


(1-e : cos y) 


on obtient par identification : 


RS un. (ire: cos 
7m 77100 (mm: VI-e) 


soit, en considérant maintenant e et w comme constantes dans la période 


qui nous intéresse : 


xm= +2,45 : 1077k  ywi=—4,59 : 1077 : (1—e - cosp} : k 


ze; = 6,69 : 1071. k- sin 


d’où la formule donnée directement dans le programme. 


Notons que cette formule résulte d’un développement au premier ordre 
uniquement et qu’elle ne donne pas un résultat rigoureusement exact, d’où 
la nécessité de procéder ensuite à une itération avec un pas de temps très 


court pour ajuster le résultat plus finement. 
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TABLES HORAIRES POUR LA FRANCE 








Toutes les heures utilisées par le programme, notamment les heures qu'il 


faut donner en entrée, doivent être exprimées en temps universel (TU). 
anciennement appelé heure moyenne de Greenwich ou heure GMT. 


En général, on connaît l'heure légale HL du lieu de naissance, qui est 


une heure conventionnelle, dépendant du fuseau horaire et du pays dans 
lequel se trouve ce lieu. 


En France, l'heure légale a été modifiée de nombreuses fois : 


. Avant le 14 mars 1891, il n’y avait pas d’heure légale nationale, l'heure 


locale de la ville la plus proche était employée. Pour trouver l’heure en 
TU, il suffit donc d'enlever la longitude (comptée négativement à 
l'ouest) du lieu à l'heure légale : 


HTU = HE - LONG. 


. Du 14 mars 1891 au 9 mars 1911, l’heure légale était celle de Paris, qui 


se trouve à 2°20' de longitude est, ce qui correspond à un décalage de 
9 mn20s ou encore 0.1 555 555 heure. Donc: 


ATU = HE — 0.15 555 555 


. Du 9 mars 1911 au 24 février 1940, l’heure légale dans toute la France a 


été l'heure de Greenwich, sauf durant certaines périodes où a été 
appliquée une heure d'été en avance d’une heure sur Greenwich; 
pendant ces périodes, HTU = HL — 1. Le début et la fin des périodes 
d'application de l'heure d’été sont donnés dans le tableau A.2.1 
ci-dessous. 


. Du 24 février 1940 au 2 novembre 1942, l'heure légale n’a pas été la 


même dans toute la France. Pour la connaître en un lieu donné, il faut 
savoir s’il faisait partie de la zone libre ou de la zone occupée. 


En zone occupée, du 24 février 1940 jusqu’à juin 1940, l'heure légale 
avance d'une heure sur Greenwich; à partir de juin 1940, au fur et à 
mesure de l'avance des occupants, l'heure légale passe en avance de 
deux heures sur Greenwich et y reste jusqu’au 2 novembre 1942. 


En zone libre, l'heure légale est en avance d’une heure sur Greenwich. 
sauf entre le 4 mai 1941 et le 6 octobre 1941, et entre le 9 mars 1942 et le 
2 novembre 1942 à 3 h, où est appliquée une double heure d’été en 
avance de deux heures sur Greenwich. 
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5. Depuis le 2 novembre 1942, l'heure légale en France est en avance 
d’une heure sur Greenwich (donc HTU = HL-— 1), mais une heure 
d'été a été appliquée pendant certaines périodes (voir le tableau A.2.2 
ci-dessous) où HTU = HE — 2. 


Le lecteur qui désirerait programmer la transformation de l'heure légale 
en France en heure TU trouvera des indications dans le Chapitre 13. 











Année Début de l'heure d'été Fin de l'heure d'été 
1916 14 juin, 23 heures 1%" octobre, 24 heures 
1917 24 mars, 23heures 7 octobre, 24heures 
1918 9 mars, 23heures 6 octobre, 24heures 
1919 1%" mars, 23heures 5 octobre, 24 heures 
1920 14 février, 23 heures 25 octobre, 24heures 
1921 14 mars, 23heures 25 octobre, 24heures 
1922 25 mars, 28heures 7 octobre, 24 heures 
1923 26 mai, 23 heures 6 octobre, 24heures 
1924 29 mars, 23heures 4 octobre, 24heures 
1925 4 avril, 23 heures 3 octobre, 24heures 
1926 17 avril, 23 heures 2 octobre, 24heures 
1927 9 avril, 23 heures 1°" octobre, 24heures 
1928 14 avril, 23 heures 6 octobre, 24heures 
1929 20 avril, 23 heures 5 octobre, 24heures 
1930 12 avril,  23heures 4 octobre, 24heures 
1931 18 avril, 23heures 8 octobre, 24heures 
1932 2 avril, 23heures 1%" octobre, 24heures 
1933 25 mars, 23heures 6 octobre, 24heures 
1934 7 avril, 23 heures 6 octobre, 24heures 
1935 30 mars, 28heures 5 octobre, 24heures 
1936 18 avril, 23 heures 8 octobre, 24heures 
1937 8 avril, 23 heures 2 octobre, 24heures 
1938 26 mars, 23heures 1°" octobre, 24heures 

| 1939 15 avril,  23heures 18 novembre, 24 heures 








Tableau A.2.1 
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Début de la Fin de la 





Année double heure d'été double heure d'été 
1943 29 mars, 3heures 4 octobre, 3heures 
1944 8 avril, 2heures 8 octobre, Oheure 
1945 2 avril}, 2heures 16 septembre,3 heures 
1976 29 mars, Oheure 25 septembre,23 heures 
1977 8 avril, 1heure 25 septembre, 1 heure 
1978 2 avril,  1heure 1%" octobre, 1 heure 
1979 1*" avril, 1 heure 30 septembre,1 heure 
1980 6 avril, 2heures 28 septembre, 1 heure 
1981 29 mars, 2heures 27 septembre,1 heure 
1982 28 mars, 1heure 26 septembre,1 heure 
1983 27 mars, 1heure 25 septembre,1 heure 
1984 25 mars, 2heures 30 septembre,3 heures 

Tableau A.2.2. 
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LONGITUDES ET LATITUDES DES PRINCIPALES 


VILLES DU MONDE 





; Longitudes 
LOCALITES E ou O Latitudes 
de Greenwich Nous 
Abidjan 4 O 5° 20" N 
Addis-Abeba 38° 44’ E 9° N 
Alger 3° E 36° 44’ N 
Amsterdam 4° 53" E 52° 23° N 
Ankara 82° 52 E 39° 57" N 
Anvers 4°25' E 51° 12’ N 
Athènes 23° 43" E 37° 58 N 
Bagdad 44° 15 E 33° 20' N 
Bangkok 100° 25" E 13°41 N 
Bâle 7° 30’ E 47° 34’ N 
Baltimore 76° 30° O 39° 18’ N 
Barcelone 2° 8’ E 41°25" N 
Belgrade 20° 29" E 44° 48" N 
Bergen 5° 18" E 60° 23° N 
Berlin 13°24" E 52° 30' N 
Berne 7° 26’ E 46° 57 N 
Bologne 11°21' E 44° 30’ N 
Bombay 72° 45" E 18° 54" N 
Boston 71°05" O 42°21' N 
Bristol 2° 36’ O 51°27' N 
Bruxelles 421 E 50° 51 N 
Bucarest 26° 7’ E 44° 25" N 
Budapest 19° 3 E 47° 29" N 
Buenos Aires 58° 22" O 34° 37! S 
Caracas 66° 56 O 10°25" N 
Caire (Le) 31°17' E 30° 5’ N 
Calcutta 88° 21 E 22° 33’ N 
Cambridge 9° 0 E 52° 13" N 
(Angleterre) 
Cap (Le) 18°29' E 33° 56’ S 
Chicago 87° 49" O 41° 49" N 
Colombo 15° 5’ E 6° 54’ N 
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Copenhague 
Constantinople 
Cracovie 


Dakar 
Dallas 
Dantzig 
Djakarta 
Delhi 
Dresde 
Dublin 
Düsseldorf 


Edimbourg 


Fez 
Florence 
Francfort-sur-le-Main 


Gênes 
Genève 
Glasgow 
Greenwich 


Hambourg 
Helsinki 
Hong-Kong 


léna 
lrkoutsk 


Jérusalem 
Kiev 


Lagos 

La Havane 
La Haye 
La Paz 
Leipzig 
Lima 
Lisbonne 
Liverpool 
Londres 


12°35" 
28° 59° 
19° 45" 


17° 26" 
95° 44" 
18° 30" 
106° 48" 
77°12" 
13° 30° 

6° 20° 

6° 45" 


3° 11’ 


5° qe 
11°15° 
8° 30° 


8° 45 
6° 9’ 
4 18° 
0° 0" 


9° 45" 
24° 45" 
113°26" 


11° 30 
104°16' 


35° 13" 


30° 30° 


3° 24" 
82° 21 
4° 19" 
65° 21’ 
12°15° 
77° 04 
9° 11 
3° 0° 
0° 9' 
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55° 41" 
41° 1’ 
50° 3' 


14°41' 
31° 14° 
54° 24' 
6° 8’ 
28° 40° 
51° 2’ 
53° 23" 
51°12' 


55° 57" 


34° 6° 
43° 46' 
50° 7° 


44°25' 
46° 12’ 
55° 53’ 
51°29' 


53° 33’ 
60° 10° 
22° 18" 


50° 56’ 
52°17' 


31° 47" 


50° 27 


6° 26" 
23° 9’ 
52° 5° 
18° 53’ 
51° 20" 
12°14' 
38° 43° 
53° 24" 
51°32' 


ZZZ 


ZZZZOZZZ 


Z 


Z ZZZ ZZZZz Z ZZ 


ZZZOZOZZZ 


Los Angeles 
Luxembourg 


Madrid 
Manille 
Melbourne 
Messine 
Mexico 
Milan 
Montevideo 
Montréal 
Moscou 
Munich 
Munster 


Nairobi 
Naples 
New York 


Odessa 
Oran 
Oslo 
Ottawa 
Oxford 


Padoue 
Palerme 
Pékin 
Philadelphie 
Postdam 
Prague 


Québec 
Quito 


Rejkjavik 
Rio de Janeiro 
Rome 


Salonique 

San Francisco 
Santiago (Chili) 
Shangaï 

Sao Paulo 


118°23 
6° 10° 


3° 41’ 
121°07' 
144° 59" 

15° 34° 
99° 7’ 
9° 11’ 
56° 12’ 
73° 35" 
37° 34' 
11° 30" 

7° 30° 


36° 54’ 
14°15" 
73° 58° 


30° 45" 
0° 37" 
10° 43° 
75° 30' 
1°15" 


11° 52’ 
13°21' 
116° 28" 
75°15 
13° 4’ 
14°15' 


71° 
78° 30° 


21° 56" 
43° 10° 
12° 29" 


22° 58° 
122° 26" 
70° 30° 
121°24 
46° 28’ 
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O O 


m OO 
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34° 
49° 38’ 


40° 24’ 
14° 44 
37° 50" 
38°11' 
19° 26" 
45° 28" 
34°55' 
45° 30 
55° 45 
48° 9 
51°58 


1°21' 
40° 50' 
40° 43° 


46° 29" 
35° 43° 
59° 55° 
45° 24 
51° 46" 


45° 24" 
38° 7’ 
36° 54" 
39° 58° 
52° 23" 
50° 5° 


46° 48’ 
0° 14" 


64° 9’ 
22° 54" 
41°54 


40° 37" 
37° 47" 
33° 34° 
31° 09’ 
23° 27" 


ZZZZOZZZOZZ zZz Z 


Zzzua 


ZZZZZ 


zZzoz ao Z ZZZZZZ 


OZOZZ 


Sofia 
Stockholm 
Suez 
Sydney 


Tanger 
Téhéran 
Tokio 
Turin 
Trieste 
Tripoli 
Tunis 


Ulm 


Varsovie 
Venise 
Vienne 


Washington 


Zurich 


Amiens 
Arras 
Avignon 


Besançon 
Bordeaux 
Brest 
Clermont-Ferrand 
Dijon 
Grenoble 
La Rochelle 
Lille 
Limoges 
Montpellier 
Lyon 
Marseille 
Nancy 
Nantes 
Nice 


23° 19° 
18° 3° 
32° 34' 
151° 12" 


5° 49’ 
51°24' 
139° 45" 
7° 42" 
13° 46" 
13°11' 
10° 10" 


9° 59" 


21° 2’ 
12°21 
16° 20" 


77° 4° 


8° 30’ 


FRANCE 


2°18° 
2° 47" 
449 


6° 2’ 
0° 34’ 
425" 
3° 05° 
5° 02" 
5° 44 
1° 9° 
3° 4' 
1°16" 
0° 07" 
4°49" 
5° 24’ 
6° 11 
1° 30" 
7°17' 
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m mm m 


mmmmmmO 


m 


m m m 


m 


mOmmmOmmOmmmomm 


42° 42’ 
59°21' 
29° 56° 
33° 52" 


35° 47" 
35° 41’ 
35° 39’ 
45° 4° 
45° 39' 
32° 54’ 
36° 48’ 


48° 23’ 


52° 13" 
45° 26" 
48° 14" 


38° 55" 


47° 23" 


49° 53" 
50° 17" 
43° 57" 


47° 14° 
44° 50° 
48° 24" 
45°47" 
47° 20° 
45°11" 
46° 9’ 
50° 39’ 
45° 50° 
43° 37" 
45° 46° 
43°18’ 
48° 41" 
47° 13" 
43° 43° 


OZZZ 


ZZZZZZZ 


Z 


ZZZ ZZ Z 


ZZZZZZZZZZZZZZZ 


Orléans 
Paris 
Reims 
Rennes 
Rouen 
Strasbourg 
Toulon 
Toulouse 


1° 54" 
2° 20" 
4° 2! 
1°41 
4° 6' 
7° 46" 
5° 55" 
1°27' 


mmmmOommm 


47° 55" 
48° 50 
49° 15" 
48° 07" 
46° 19° 
48° 34° 
43° 08’ 
43° 36° 


ZZZZZZZZ 
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BE LISTING DU PROGRAMME 





1000 
LOU 0 
LOC 
1040 
LOC 
1060 
1070 
106 
1090 
1100 
LL1O 
LLEO 
1140 
1150 
1160 
1170 
1180 
1190 
1200 
1210 








1250 
1270 
1280 
1290 
1500 





dl ; 
1440 


1550 











CLS 

GOTO 10020 

HHHRAED. DE EHEPLER ANOMALIE VRAIE RAYON VECTEURS 4e eee De DEEE DE DEEE DEMO 
VARIABLES EX,AX,AM,AE,AV,RV MERDE DEEE DD DEEE DEEE 


FOR Tkæl TO 10 
SES AMHEXS%S TN CAE) 
NEXT IE 


RVEAX-AX#EXXCOS CAE) 

RETURN 

REM ex PASSAGE AUX COORD. HEL TOCENTRTQUES 266 6e ee DEEE DEEE DD DE DE DE DE DE DEEE EDEN 
RE M VARTABLES IC, AV ,LPFH, LANA, XT,YT, KV 

RE M XF,YE,2F,LH, BH, UH, VH 

LAVE. FL NA 





IF COSCUH)20 THEN LHeLH+FI 
IF LHEO THEN LHELHEBXPI 
VHæS IN CUH) #SIN CIC) 

BH=ATN (VH/SQGR (1-VH#VH) ) 

XF X THRVXCOS (EH) #C0S (LH) 
VE YT+RVXCOS (EH) #S IN (LED 
ZF&RVXS IN (EH) 





RETURN 


REM xxx  TARAANGE MELTO GEO CHOCO CONOMOEDEDEDEOMOME DE DEMOMOMOME DE DEMO DEMO EME EENX 
REM VARIABLES  XF,YF, LG 

KEM NE CALCULE FAS LA DECLINAISON .., 

LORATN CYF/ XF) 

IF OXFSO THEN LGmLG4+RPT 

RETURN 

REM œ%wxx CALCULS TERRE SOLEIL. 6e DEMO EME DEMO DE DEN DE DEEE DE DEN DEN DEDEDEDEDEODEDEEON 
RKEM VARIABLES AX,LNA,IC,EX,LFH, AM 

AX=1, 0000010 





1400 
1410 
1420 
1470 
1440 
1450 
1460 
1470 
1480 
1490 
1500 
1510 
1520 
1550 
1540 
1550 
1560 
1570 
1580 
LE9Q 
1600 
1610 
1620 
1650 
1640 
1650 


LNAzQ 

ICO 

EXæ20, 0167086170, OOOCOA4BKT 
ARE 4, Fer 00055642 XT 
SOZLLLXKT 







GOSUE ‘1030 
X TeRVECOS CAV+LFH) 

YTERVESTN CAV+LFH) 

GOSUR 11:20 

RETURN 

REM #kkeuxx TEMFS SITDERAL FOUR MTL HER EME DE DE DE DE HEDEHEHEDEDEDEDE DOME DEN DEN DEEE EN 
REM TS EN HEURES ,TSKD EN RADIANS 

TS=24110.54B4+TXB640184. EF 1+O, ODESLKTET 

TSETS/5600 

IF TS524 THEN TS&TS-24 : GOTO 1500 

IF TSEO THEN TS=TS+24 » GOTO 1510 

TSRDETG#O,261799:87 2:REM &TSxPI/12 

TSRDETS SRD+LONG+HRD 

IF TSKDS2KkPI THEN TSRDE=TSKRD-2XFT 

PRINT HS ,USING"'e © HE H# a UTSNU,FNMI CTSKDY12/FI) 

RETURN 

MEME CSC ND ANT HOMO DOMEO MODEM MMM EME CHE DEMO MODE DEEE DEDE DE DEDEDEDÉ DE DEN DE DEEE 
REM VARIABLES TX,LAD 

RE M ASD,TAS 

TASETAN (LAD) #0,5979494+SINCTX)#0,917408 

ASDE=ATN C-C0S (TX) /TAS) 

IF TAS*O THEN ASD“ASD+FI 

RETURN 

REM Me 36 DEEE DEEE DE DEEE EME DEEMODEONODEOMOOMOMOMOHÉOMECMOHEDEHECHMODECHE CHOCO HE DES OHEDEDEDEDEDEEDEDEDEHESDEDE DEEE DEEE DE DE DEEE 
REM %x%kxexxx FLACIDE (DOMIFICATION DH MOHMECHMEOMONUMEECHECHECHEONEDEHEDECHECHE DEEE DE DÉDE DE DE DE DE DEEE HE DE DEEE DE DE 





RE SE ER EE NE NE SE DES ES SE LE SE LE SEL ETES ELLE SELLES ELLES LS LSLZS) 
LR EE SES ENS SELLE LE LS EEE S ES 


L1é60 


REM VARIABLES TSKD,LAT,JF, 


1670 
1680 
1690 
1700 
1710 
1720 
17:50 
1740 
1750 
1760 
1770 
1790 
1790 
1800 
1810 
1820 
LEO 
1840 
1850 
1860 
1670 
1880 
1890 
1900 
1910 
1920 
1950 
1940 
1950 


REM ASCENDANT 

TX=TSRD 

LAD:«LAT 

GOSUE 1570 

RC=ASD#160/FT 2: GOSUR 1920 : LMC1L)=RC: LP (11) =RC 
REM MAISONS 11,12,2,5 

FOR JFx=1 TO 4 

EFegJF+LO-LLAINT CJF/3) 5 REM TRANSF 1,2,5,4 EN 11,18,2,% 
TX=TSRD+ (JF-E+INT (JF/5))4FI/6 

LADE=ATN (TAN (LAT) FLAC CIF) /5) 

GOSUR 1570 

RC=ASDKk180/FI : GOSUR 1920 : 1LMCEF)æRC 

NEXT 

RCxATN CTAN CTSRD) /0,917408)*+180/FTI 

IF COS(terd)20 THEN resre+180 

GOSUR 1920 

LM CLO) RC LP CL) mfRCs RCeRC+180: GOSUER 19203: LM (4) RC 
FOR JF: 1 TO SE 

RCzlLM CIF) +180: GOSUR 1920 » LMCIJF+6) RC 

NEXT JF 

FOR JFel1 TO 1% 

RCæLM CJFI+180: GOSUR 1920 3 LMCJF-6) RC 

NEXT JF 

FOR IMeæl TO 12 + GOSUR 20480 :NEXT 

RETURN 

REM  RECENTRAGE DE © À 260 4x 

IF RKOCFE6O THEN KCeRC-E60 + GOTO 192#0 

IF ORCEO THEN ROmKG+260 8 GOTO 1940 ELSE RETURN 

REM xx DETERMINEE 1 ASPECT MAJEUR He De DE EDEN EEE EH DEEE DEC DE DEEE DE EDEN 







CHOHOHEOMOME DEMO DEODE HN DEHE DH HEDEDEH CHERE HE DE DEMO DEEE DE DE DE DE DE D DEEE 
SHHHEEHE DH DE DE DE HE CH DE DE DE HE ÉD DE OEM DEEE OEM DE 


1960 
1970 


REM ENTREE: ANGLE ENTRE & FTS ( ANG ) 
REM SORTIE NUMERO DE L'ASPECT , ©O SINON € ASF ) 


1980 
1990 
2000 
2010 
202 0 
AIR Te) 
2040 
Le Lee 
list 
2060 
2070 
20680 
2090 
2100 
2110 
BLEQ 
140 
2150 
2160 
2170 
2180 
2190 
2200 





ANG&ARS (ANG) 

IF ANG:180 THEN ANGx%60-AN6G 

ASF: 0 

FOR Al: 1 TO S 

IF ANG AGSMA CAT) +COMA CAT) AND ANG:AGSMA CAT) -OMACAI) THEN ASPFSAI # RETURN 

NEXT 

RETURN 

REM Mk comes tante MESURES HERHNEUEDEDEHEODEDE DEEE EME ED DEEE DEEE DEEE DEEE EU DEEE DEN DE 
RAR OTe CRRAET e) 

AX:0, 58709851 

EX20, 400641 75+0, 000404 T 

ICQ, 1888640, GOOCHEXT 

LNA&O, SSSR E+O, 0164896%T 

LFhpel, SS18644+0, 02699 4SxT 

AM, 08074484+2608, 787717 

RETURN 

REM exe constantes VENUS Xe 66e ee DEEE EEE DE DE DENON DE DE DEONOME DE HE DEN DE DEEE DEEE MED MEOME EN 














EX#0,00677188-0,0000478%T 

ICe0, 059248+0, OOOO11XT 

L.NAzz 1 EE 7 OH, OLE7OHEKT 

LFHER, 29622+O, OBABXT 

AM:x0, 079980857410), 22814#T 

RE TUFN 

REM +#kkxkæx congtantes MARS RUE DEEE DE DE DEOMOMDE DE HE DE DEEE DE DE EDEN DE DEEE DEEE EDR DEEE EN 
AX:=1.522079%4 

EXO, 0944006468, 94 

ICQ, O0r226 Qu QOGO1L7AQXT 

LNAEC, GGA4SSICE+O, OLGESSALXT 

LH, 4176827740, ORBLTAROXT 

AMzQ, EEE 5 

RETURN 

REM xs comstantes UF I TER EOeECMOEONEHECMEOHEMEOMEOMEMEHEOMEDE HOMME MD MH DE DEEE DEEE DEEE EE DEEE EE 



















07 













ax- AX40 
“CG, 046 a 
EX+0. 






SLT, OODOO0O47KTET 
)A61 SIN (PERT D) +0, OOOLRYRCOS (FERT) 
(7, DOCS OT NET 0, OOOOOOOGXTEAT 
: 440. OL7BLDANTHO, OODOOZATAT 
mL 7 L+O, OCT AT EXT 40, OOOOLOKTET 
8 (O0 GOOM LT ERGSTIN CMEÉRT) 0, OOCSA4GOGEXCOS CFERT)) /EX 





2400 
a 4 1 © ch 41 452 4 
: 
#0 RETURN 
A4 EM dx constantes GATUENES He MOMEOMOEMEOMEDEOHE DEN DE DE DE DEDE HE DE HE DE EH DEEE DEEE DE DEN DE DE DE DEEE NE 
240 FER u ZRIAOOMELETHE, O9421F507 
460 AXE ni Re 

T)+0, OORGISXCOS (FERT ) 

WE ï, 4 bé DA LE 04 T0, OOO00GO644X TXT 

2079 RS IN (P Ro O0174#C0S (FERT) 
k Re Te CS, COCO ORTET 


BTE 72640. O1SEOBO7AT-0, 0OOOOLIDATET 
DOOOLA4ERTET 


0, OO TL 4LXTAT 
. L.FHA 


































ee 5920940, OA ESOA4SXT 0, DOC 
se (O4 OOLTOLASIN CPERT) +0, OOOBO0SkCQS (FERT))/EX 
HF À 
 SSSOSLOP+EL SeOU 








KRMORMNUNX (CONS TANTÉES  UIFANUISS eme MD DOME DE MODEM DEEE MODE DE MD DEEE DE DENON 
2690 FERT #T4+5, 108041 

2600 AXm19, 21644540, LOEB T 

Rb1O AXmAX-0, OUEBP4#COS (FERT) 

Rés E Ou DOC T EXT O0 OOLOVOOYYETET 

B6E0 CRÉES TIN CFERT) +0, OOBLkCOS (FERT) 



















640 
650 
660 
6 7 0 
ATLAS TS) 
26%0 
2700 





2720 ! 
2740 
27 
760 
3770 
2780 
2790 
2800 
281 0 
2820 
2020 
2840 
»BEO 
2860 
270 
2860 
2890 
2900 
2910 
2970 
2970 
2940 
2OEO 


2980 





LCeO0, 01249640, OOOOLESLET+O0, OOOLOHGSARTET 

LUNA 1. 2916540, OO9ODEAT+O0, OOOOREAUTET 

LPHES, 01952940, du XT+O, OGOCOE7PATET 

À" DRIGMCQS (FERT) +0, OOOLQSASINC2XFERT))/EX 












ER « AYGGOLET +0, OO! FX THAT 

AM=AM+O. 015 SIN ER Tr d Q01471XC0S (FERT) +0, OOOGRGXSIN CBXPFERT) -LFHI 
RETURN 

Fe ÉTTETLITILSS. = PONSIONTES NEPTUNE MR MCMOMCHOMEOMEOCDECMEODEOME DEEE DE MODEHEODECHE DE DEMO CMEDEODEDEDEHEDE DEN DECNODEODEN DE 











EX= st EX+0. a do OOOATGKCOS (FERT)-0, O06KkCOS CRHFERT) 

LCGeO0, OEO0B69-0, 00016752 T+0, 0O00O00O1PkTAT 

LME, ÉOO066+O, OLOLBXT +0, DOOOOGASARTET 

LFHeO, 64040040, OPABGRET+O, OOOO0OÉ6S7ETET 

LH Led, LOL ORSTN CPERT) 4, RO GER COS (FERT) +1, 047% (SIN CSXPERT) -COS C2KkFERT) ) 
LPHeLFHE+O, QOOTXLEFHI/EX 

AM 4,479865 + 5, BOT 72KT-0, OOOOO11BKTEXT 

AMEAM-OQ, OLOE4RXSIN(FERT) -0,000979%C0S (FERT) +0, OOOA4D4XGTIN(2*xFERT) 


AMÆAM:-0, GOO1KLEFMHI/EX 

RETURN 

FREM me CONSTANTES FLUTON  HHXOXOMOHEOHMOMEOMOHONONOMOMEDEOHOHEDEHEDEHE DE DE DE DE DEDEDEDEDEDE DE DE DE DEEE DE 
AX:2:59,45:971% 

EX=0,250256 

LPFHESZ, 91762417 

ICe0,7299681 

LN£s1,9157:244+0, GOR4XT 

Mx0, 25420447 4 2, HE39820607%XT 

RETURN 

REM HHEREEAERXX FOSITTION DE LA LUNE 40246026 Je MOCHE ECM DE DE ECHO DE DEN DE DEEE DE EEE DEEE 
LSOL=ANM+LEH 


2970 De5.19846674+7771.277154T-0, OOOO285X TXT 
2980 F1, 62790525+8455. 4661 6#T-0, 00005944 TXT 

2990 Me, 166666040108. 6914H4T+0, OO01569XTKT 

5000 LS, 8107444+8299,70911XT-0, O0O00PIRATET 

010 Lel+O, 1097598#SIN (ML) +0, 007764BXS IN (P#ML) 

3020 #S IN CAM) +0, 0007155846 IN (ML-AM) +0, OOOSTREXG IN (AM+ML) 

EO%O LeL+O, O114901KkSIN CPKD) +0, OOLOPORKSIN CEE CD-ML) ) +0, 00099BEKGIN (2KD-AM-ML.) 
5040 LaeL+O, OPPOTISESES IN CPKD-ML) +0, O0O0DEOBÉES IN CEKD4ML) +0, 000801 1#SIN (2KD-—AM) 
3050 LaeL-0, 0006068248 1IN (D) +0, 000267%S IN (24 (D-F) ) 

3060 LeL-0,0019949XSIN (DPF) 0, O0O819KSIN C2XF4ML) 0, 0001924GIN (2XF-ML) 

5070 LeLeBkPDXINT(L/ CRI) ) 

3080 LNAM=2. 1824597 75704464 T+0, O0O0Z6XTXT 

5085 LNAG«LNAM+O, 0647082646 IN C2 (FD) ) 

3090 LNFHe1.4547865+71.0176866XT-0, O00O18%TXT 

5095 LILISLNPH+EL+0, 101229 LS IN C2% (AM-LNFH) ) 

100 RETURN 


















ALLO KREM ken CALCUL FOSITIONS FLANETATRES eee DEMO DEEDEMODEHEODDE DEEE DEEE 


HO CLS #1 

ALEO GOSUR LESO 4 IFel s LFP CIF) eLH#IBO/FPT 2: GOSUR 20360 
140 TP s GOSUR 2980 à LFP CH) eL#190/FI x GOSURH 20560 
IMPRESSION MODE TEXTE INCLUSE 





TO 10 

ON IF GOSUR 2060,%140,2220,2200 ,2440,2880,2720,2870 
GOSUR 1050 

GOSUE 1150 

GOSUR 1470 

LE CTP) el. Gel 80/FT 2 ROæLF CTP) 8 GOBUR 19203 1LF CIF) RC 
NEXT IF 
REM DOU 






F4 L. "FA mn F0 1] F4 EN FE N ES D LU] MV T ÉTELLLLLLILLLLISLLLSILLILLSLLLILLILLLLLILLLILILSTS) 








GOSUE 1 () 
FOR IP TO 10 
ON IF GOSUR 2050,2140,2220,2200,2440,2580,2720,2870 





HO 
3400 
3410 
3420 
F4F0 
3440 
3450 


3460 
3470 
3480 


} 
390 









GOSUR 1030 
GOSUR 1130 
GOSUE 1270 
LFeLGE1BO/FT 2 ROeLReGOSUE 1920: LReRC 
IF LRÉLPCIF) THEN FRET (IF)æi ELSE FRET (IF) #0 
GOSUR 20%60 
NEXT 
RE TUFIN 
REM XRHkxXxxxExXXX POINTS FTCTIFS CHOMOMOMOMOMEOMOMEOUNOMEE NME DE DES MODERNE 
CLS HS:C=5 
PRINT #C," POINTS FICTIFS" s PRINT #0," 
PRINT #0," NOEUD LUNAIRE ASC," 
RCÆLNAS*180/FI: GOSUR 1920 
SImFNSI (RO) 2 LAGEFNMI (ENLASG (RO) ) 
FFUINT #C, USING" HO HE c'iLAS, SIGNE (SI) 
PRINT #0," PART DE FORTUNE" 
PE = M CL) HLP CP) eLE C1) 2RC&FF: GOSUR 190 
SISPNSI (RO) 2 LAS#FNMI (FNLAS (RO) ) 
FRINT #C, USING" HOME CG c'sLAS, SIGNE (SI) 
PRINT #C," LUNE NOIRE" 
RCeLILIK180/FI: GOSUB 19%0 
SIRFNSI (RC) 2 LASEPNMI (ENLAS (RO) ) 
FRINT #C,USING" HOME CG c's LAS, SIGNE (SI) 
IF FLERT AND (C5) THEN Ce : GOTO ##90 
RETURN 
REM RECHERCHE DES ASPECTS C THÈME NATAL D HER DD DEEE DE DE DEEE DE DE DE DEEE DE DEEE X 
IF MGeO THEN CLS ## 
FOR AJæi TO 10 : WORÉ(AJ)æLF (AJ)  NEXT 
WC C1 LD LM CL) 2 WORE (1R)#LM(1O) + CFTA=i 
IF FLERT THEN PRINTHB, "2 PRINTHG,STRINGS CEE,49)4" ASPECTS "4STRINGÉ (28,4 












FRINTHS,"" 


FOR Agz 1 TO 11 
FOR Akz AJ+l TO 1% 


2600 IF AJæl1 THEN RETURN 
610 ANG: “ei WORK CAE, 3 WORK (AJ) 
ETS) 5 At 






IN 780 ELSE CPFTAeCPT A+ 
EN WÉÆReMATOSE CAES TL) à Cet + CEE LE) #& CO) E 
»70 








WESÆ& FLE CAE) 






T HE N 
 GÜTÜ 










1660 GOSUE TE 
670 F NT HE , US] 
L6t30 FTA MOD 4 0 Pp HIEN 
8690 LFONOT CFLERTO) THEN 2 L 
ch 7 CC LEFOONOT CfT ip) THEN PRINT HO USING FFÉCSESs PLE CAT), ASMA# CASE) 1 WEE, ARS (ANG-ASM 
FA CAGE) 8 fl i peNOT CEE ps GOTQ 5720 

E h PF [NTHE 5 STRING (7,28) 5 8 PFCINT HG, USING FFE FLE (AJ), ASMAE (ASF) , WH +, ABS CAN 
: NOT(#1ip) 


EL (AJ), ASMAE CASF) ,WNEZ, ABS CANG-ASMA CASE) ) 3 
: BOSUE 20700 





ë + KE TURN. 
3 7 : JO REM eo SUR TRACE ASF, MODE GRAF QUE 4626 ee DE DE DEEE DE DE DEEE DE DEEE DE DE DE DE DE DE 
HO IF AE CF THEN GRAF: HICS PEN SG ELSE GRAFHICS FEN 1 





1770 MOVE FX CAE), FY CAES 
4780 DKAW FX CAT) ,FY (AJ) 
ne 7 ne TURN 


FLE VC : UTTONS  SOL.A TRES He Me DE DEMO DE HENRI EHECHE EDEN 
TENFS EN -STECLES DE LA NAISSANCE 





3 KEM AC à 

340 KEM SORTIE TAG  TEMFS À LA REVOLUTION 
TACLET : JL 4 MGzx0 

‘ PH CLÉ XHCOS CAE) TO, OObÉYESIN CAE) 

CO CL+DTKO, O0OGCOO ! ) 

LEEO 

: 2GOL)5 KO, OGOGOC 

: +9 00 F OR TTeTRA TO TRA+IOO4#FAS STEF FAS 

2910 TeTT 1 GO0OSUR LEEO 















IF ARS (Le GOL) Ce OM OGOUS THEN TRamTT 4 RETURN 









RES M Dee MCE CHE ME CHENE EDMOND DE DH EEE DEEE ECHEC DEHOODE MEME EME OEM 
LOC REM een RODEODOMEOCHEDEDEODEHEEENE HONOMOMOHEMOMOHONE DE DEDE DEEE EEE OEM DE DENON 
LOCAC  FSESM ed ee MMM ED EE EME OR DIEUIT MENU MDN DH MD DE HD DD DEEE EEE DEEE 
LOSC RÉM CHOBMECHMECUMEMEONEMEMEOEDEDE CMD EDEN DEN HOMME HOME HEOHEDEDEHEDEDEHE DE DEEE DEEE DEMO EE 
LOGO FEMME EDEN DEEE CCHE HE DECHECHECDECHE DDRM OMC EH CHE DE CHECHÉ CHENE DEEE DEEE CHE ONE EEE EEE DE DDC 
10070 REM 

10080 GOSUR 20000 

10090 GOSUR 29420 

10100 MODE SeCLS » LOCATE 1, 

10110 FRINT SPC (30)8 TRINGE (15,42) 

10120 FRINT SFC (CO) "xx ASTROCALC #%" 

10150 FRINT SPC FO) STRINGE (15,4%) 

10140 FRINT : PRINT 5 FRINT 





101850 PRINT 3 FRINT SFCC20)" 1,,,,,,,,,, THEME NATAL" 
10160 FRINT 3 FRINT SFCC2O0)" ses un ne REVOL SOLAIRE" 
10170 FRINT 3 FRINT SFC C0) 7...  COMFARAISON" 


10180 FRINT 3 FRINT SFC(20)" 
10190 REM 

10200 KREM 

10210 KEM 

10220 FRINT 3 PRINT 3 FRINT 
OO PRINT SPC CO) "es INPUT "CHOIX. ......... "3 CH 

ee IF CH+4 THEN 10100 

10240 ON CH GOSUR 10260,10480,10700,11%240 

10250 CeS sGOSUR 20700 : GOTO 10100 

10260 REM +kkkkkRMMRXx THEME  NATAL HORREUR HEDEOHEHECHEEDEDE DE HE DE HE DEEE EEE DE DEMO DEN EOHEE NE HE 
10270 MG=OQ : TITRE#H=" THEME NATAL * 

102680 GOSUR 25000 

10290 GOSUR 20530 

10700 Ces s FRINT #5, IMPRESSION’; 


- TRANSITS" 


2 
= 
Ê 
= 
= 





10: 10 


LO4%O 
10440 
10450 
10460 
10470 
104890 
10490 
10500 
10510 


LOSEO 
10590 
10600 
10810 
LOG 40 








GOSUE 
IF FLF 
GOQSU 
GOSU 
GOSU 


FL IMF'e 


GOSUE 
IF FLF 


GOSUR : 


FLIMEF": 


GOSUR 


GOSUE 
FRINT 
Cu 

IF NOT 
GOSUE 

GOSUER 

FRET UN 
REM 
TITRE: 
GOSUE 





GOSUR % f 
HS, 0 IMPRESSION" 


FECINT 
Ce 
IF FLF 
INPUT 
GOSCLIE 
GOSUE 
TeTRE 
HR DE 4 
FL TIME 
GOSUE 

GOSUR 






21180 : 


FLPFATE&FLCH 


KT THEN GOSUR 15000 


H 21050 


# 1460 
H 1650 
1 
3110 


) 


Ke THEN GOSUE 20000 










y CARTE GRAMMHIQUE 2" 


GÜSUE 
CFLC+N) 
Be50 


LEO 





RE VC 





11680 


THEN RETURN 


HORMONE MORE REVOLUTTIONS GSOLATRES 


JUTION SOLATRE 


3OSUR 21180 2 FLFAT&FLCH 
KT THEN GOSUR 15000 


HS, "AGE 


21080 







pra UT 
à 
1460 


"SAGE 


DH DEMO HEHE DE HE HE HE HE DE DE DEEE DEEE DEEE EME DEEP DE DE DE DE DEEE 


106850 GOSUR 16450 
10660 IF FLFAT THEN GOSUR 20000 
10670 TF NOT(FLOME) THEN GOSUER 30 
10680 FLIMFEeC0 
106490 RETURN 
10700 KEM HER RIRMENXEX COMPARAISON DE TMEMESS eh ceMMCROMEOMEOMDECMODOMEMEDE DE DEMEOME ME ECM EE DE EN 
MEME EME DEMO DE DE HE DE DERNIERE DEEE DEEE DE DEEE DEEE DÉHEOEDEEDEGE DE DE ENE EDEN 
MH MOMEHE DOME MODEME DEMO HE EE DEN DEMO 
10710 CLS # TITF M THÈMES COMFARES È 

720 FRINT SFC COMPARAISON DE THEMES" 
10720 FARINT 4 FAINT 
10740 PAINT OGSFC CO) Lun ne ENTRE & THEMES DE NAISSANCE" 
10750 FKRINT 

SO FACINT GC CO) US un en 0 ENTRE 1 THEME ET UNE REVOLUTION SOLAIRE" 

10776 FRINT 
10780 FARINT SFC CC) M 
10790 INPUT CHOIX My 
10800 GOSUR LIORC 

31 C # FCI NT à 
LH 
TOTHEN GOSUR LE000 
5 CFTAxO 
Le +lopeflip 

















ÉFCINT" IMPRESSION ysCeOs GOSUE 21180 





















TO 44 
ï CL) -WORE CT) 


THEN 10990 


THEN OWIÆ=MATSX CI 
EN We MATE CH) El 
IF THEN FRINT® ss PRINT 
À CASE) ): SFLTF&NOT (FLTEO 2 GOTO 10950 


Li 






10940 


FRINT" * Rs PRINT USING FA#:;UWIS,ASMAE (ASF), 


ASMA CASE) ) 3 FLIFEeNOT (FLIF) 


10950 
10960 


IF NOT(FLPRT) THEN 10980 
IF flop TH 





# FLOpPENOT (flop) :GOTO 10980 


10970 


FECLNTHS, STRINGE (7,52) se PRINT HG, USING FRE: WI£, ASMA# (ASF) 


SMA CASE) ) 8 fl 'opeNOT (41 op) 


10980 
10990 
11000 
LIO10 
LIO2O 
11050 
11040 
11050 
11060 
11070 
11080 
11090 
11100 
11110 
11140 
11150 
11140 
11150 
11160 
11170 
11180 
11190 
11800 
L1R10 





11250 


IF CFTA MOD 48 = O THEN CxO 3 GOSUR ÆG700 
NEXT J 
NEXT TI 
RETURN 
REM RE 
GOSUE 


TABLEAU WORK CD) 











FOR Clæo TO 1 
IF (Gie1) AND (Ci 
GOSUR “Te 





THEN GOSUR 10540 : GOTO 11140 


GOSUR 21050 
GOSUR 1460 
GOSUE 1650 


TO 10+22#01 
— (CieO) C2 (Clel)# (02-22) ) 


: TO Leraesx0l 
KE C2+10) LM (= (C12 É #0) #0 (Cle) (Cie) ) 
NEXT (a 
NEXT C1 
FLCME::0 
RETURN 
REM Me de DOME HE DEEE HE HECHE ED DEN DÉMO DEEE EEE DE EEE EE DE DEN EX 





N PRINT #B,USING FPARSESUWIE, ASMAE (ASF) ,WJE, ARS (ANG 


WJ*,ABS 


WIE, ARS CANG-- 


ASMA (ASF) ) 3 


CANG-A 


11240 
11245 
11250 
11295 
11260 
11270 
11280 
11290 
T 

11500 
115 
1 


11570 
11:80 
11590 
11400 
11410 
11420 
11450 
11440 
11450 
11460 
11470 
11480 
11490 
11500 
11510 








IREM HR DER DE DE HE DEEE DE DE DE DE DEEE DEEE TRANS T TES RD DD HE DEEE DE ED DE DD DE DE DE DE DE HE DE DE DE DE DE DE DE DE 
CLS : PRINTOLE THÈME DONT ON VEUT CALCULER LES TRANSITS EST-IL EN MEMOIRE? 


CeO: GOSUR 21180:1F NOT(CFLEH) THEN GOSUER 10260 


MODE © 2 CLS 
TITREHe" THANSITS FLANETAIRES " 
FRINT SFCCIO)TITRESZ : PRINT : FRINT 


FRINT SFC(20)" LES FLANETES SONT REFÈREES DE 1 (LUNE) À 9 (FLUTON)": 


FRINT SPC C2O)!" ENTREZ LE NUMERO DE LA PLANETE À ETUDIER "ss: INEUT CH 


IF CH>9 THEN 11340 
Le INT ((BO-LEN (PL (CH+1)) ) /2) 

D1=D1 (CH) : DR=D2 (CH) 

PRINT: PRINT SPC (20)" IMPRESSION "; 

CO: GOSUE 21180 + FLFRT=FLCH 

IF FLPRT THEN GOSUE 13000 

IF FLPRT THEN PRINT #8,STRINGE (28,42) +TITREÆ+STRING# (28,42) 
IF FLPRT THEN PRINT #8,STRING# (L, 42) +PLE (CH+1)+STRING# (L,42) 
PRINT : PRINT SFPC(20) "ENTREZ LA DATE DE DEBUT DE L'ETUDE"; 
INEUT Dé 

GOSUE 20680 

IF FLD THEN PRINT" DATE ERRONEE ": GOTO 11380 

PRINT : FRINT SFC(20) "ENTREZ LA DUREE D'ETUDE SOUHAITEE" 
PRINT : PRINT GFC(20)"EN MOIS FOUR LA LUNE, EN ANNEES SINON"; 
INEUT FT 

IF CHei THEN FT=FT/1200 ELSE FT=FT/100 

GOSUB 21050 

FINST+FT 

FOR I=1 TO 10 

WORK: (417) LFP CI) 

RCSLF(1)+90 : GOSUB 1930 : WORK (4#1-2) =RC 

RCSLF(1)-90 : GOSUB 1930 : WORK (4#1-1) =RC 


FRIN 


11560 
11570 
11380 
L1590 
11600 
re 





11640 
11650 
11660 
11670 
11680 
11690 
11700 
11710 
11720 
L17EO 
11740 
11750 
11760 
11776 
11780 
11790 
11800 











3 (GOSUE 


RL CT) +180: GOSUR 1950 4 WORE CÆXT)=RC 
NEXT 

FOR Iæi TO 
WORE (404447 
FC MOI) +90 : 
MCT)-90 2 GOSUE 
FC MCID+180: GOSUR 
NEXT 

CLS 4 FARINT SPC CE) "TRANSITS DE a FLE CCH+L) 5 FRINT 
GOTO 11670 

Le 


5 WORE (4044 T2) RQ 
WEAR CAC db Te 1) a RCE 
5 WOIRE CO T ) A 
















REM ORAN ROUTINE INTERNE CALCULE INCRESSES) 





IF 
x 30,#720,2670 





Gx180/FT RC si, G: GOSUE 
TURN 

ex DÉBUT BOUCLE RECHERC 
NleT+DI 4 CFTAEC 
:GOSUR 11620 









“L 1 TG b4 

LÉ ARS CWCIRE CE) 1.65) 210 THEN MAR GMAR GEL 2 ROUGE (MARGE) 

NE XT LE 
IN THEN RETURN 

THEN 116840 

CHE FINE 4% 

DEL TO FINI STEF D 








FOR 


GOGSUR 116%0 
FOR Éel TO MARQ 

LF ABS (WORE CHOUGE (EH) )-LG)21 THEN GOSUB 11860 :G0SUB 11920: GOSUE 
_NEXT K 

' 

FINI 





LE2060 












116%0 

M FIN DU CALCUL DES TRANSIT 46e He DOREOMOMEO DE DE DE DE DÉHÉDE DÉDEDEHE DEEE DE DEEE EDEDEDEDEDEHE ON 
JUGÉE (CH) 

ss] 4 (TFC) c 4 

TR MOD 4 % 1 THEN ASF 

C TR MOD 4 = 3 OK € 

TK OMOD 4% © THEN ASFxS 

TURN 

CONV OT EN DATES He Me Me HEMOMOROMOMOM MOCHE NOMME MEME CM DEEE DEEE ONE ECHEC CMD EME DEMO ECHO MEMOMONDE REX 





4m EX ) THEN AGP 





NS THEN 11985 





À 1 5 ENT CN1 / 14 1) 
NL és LA A L ee COCA SO) AND NOT CES 













és 1 AND NOT CHE 








AND NE JE THEN 1000 


NE XT 
ANNEE 
NE NFONSES 
IF FNEIS (ANNEE 





el AND Jxéo THEN 
LFOF &5 CAN Jet AND Jséo THEN 
FOR MOTGælL TO LT 

LFOJSJOUR MOTS) AND Je JOUR CMOTS +1) THEN IROrS 
NEXF MOIS 

JOUE JT OUR CMOT GS 

RETURN 


MOI Ge 4 RETURN 























3 C3 REM us SION DES TRANSITES AM MDN OM DOME ME DE EME DE DEN E DEMDEDEDEDEDE EE EME DER DEMO DEEE DE DEEE 


11 THEN WIJ#PLECIT) ELSE WIJ#eMATS#(IT-10) 
+ L IF THEN PRINT USING FT; ASMA# (ASF) ,WIJE, JOUR, MOIS, ANNEE; : FLIF=NOT (FLIF 


x CR PRINT USING FTE; ASMAE (ASF) ,WN9J#, JOUR, MOIS, ANNEE : FLIFæNOT ( 


LFONOTCFLERTS THEN 12150 
IF flop THEN PRINT #6,USING FTES ASMAE (ASF) ,WJE, JOUR, MOIS, ANNEE s 3 FLOFÆNOT 
(FLOP) : GOT 12160 
: FECLNTHE, STRINGE (7,282) ss PRINT #68, ,USING FT: ASMAY (ASF)  WIJE,JOUR,MOIS, ANNEE 
PeNOT (FL. OF) 
LE OCFTA MOD 48 = © THEN Geo 2 GOSUR #0700 
LIFN 
HA CONFTIGURE LT MEET MANITES eee ee DE CHE DE EDEN DEEE DE CNE CE EME EE DENON EE 
[NT #B, CHE C27) "GS 
NT Feu CE Pr A MES 
INT 711" 


BET 







FLANETES / MAT SONS He De MMM DÉMO NEDEDEDÉDE DEN ÉD DE DEMO DE DE DE DE EDEN EE 








OA N TE CN HUNGe 20 Ma) FOREST A NES 0485 

FRINTHE, "" 

PRINT 48," aNOME SE" M PNOMES" Us DE 

NT HG," HEURE T.U "#HTU;" LONG. MiLONI" LAT, MsLA 

20060 PRINT #B,:FPRINTHS, STRINGE CHE; 42) +" POGITIONS CASTRINGE CES, 42) 

20070 FRINT#8,"" 
20080 FOR | TO 6 : 

20090 SISFNSI (LP (1))5 SMeENSI (LMCI) D) SNSENSI (LMCI46))2 IF FRET(I)=1 THEN Réevpu 
ELSE Fésnn 

2G10O  LASRFNMI (ENLAS CLP CI) D) 8 LAMSENMI (FNLAS (LM CI) D) 8 LAN&FNMI CFNLAS (LM(CI+6))) 
20110 PRINT #8,USING FERLE+FPROE+PPROES FLE CD) ,LAS,R#, SIGNE (SI) ,MAISE CI) ,LAM,S1 

GNE (SM) ,MAIGE CL+6) , LAN, SIGNE (EN) 












20120 
BULFO 
09 140 


NEXT I 
FOF 


SI 


TO 10 





BO160 
20170 


NE XT 

RETURN 
20190 REM 
820200 






“Era 


GERS TARINGE CEO, 72 
FARINT#E, "M" 
FAINTHS, SE+UGTONES 
FRINTHS,SE+USTGNES 
FFCINTH#6, "1 
FARINTHS, SE4+USTGNES 
FRINTHS, SE+USTOGNES 
FRINTHS, SE+UGTGNES 
FRINT#S,!"" 
FAINTHS, SE+USTGNES 
FRINTHS, SE+UGSTONES 
FPECINTHS, SE+"STGNES 
FPRINTHS, SE+'STONES 
FAINTH6, "US FRINTHS, 
RETURN 





REM eee x LES 
REM inti 
REM 
REM 
REM 
IF NOT(Cflimpi THEN 
SISFNSTI CLF CIF) ) 


820759C 
20400 
20410 
Q420 
2O4IQ 
20440 


NSI (LE CID 
20150 LASEENMT CENLAS CLF 
FECINT HO USING FFARLE: FLE CT) , LAS RE, SIGNE (ST) 


IMPRESSION DES 
FARINTHS,CHRSE C1) 8 FRINTHO 


REM Xe FOGSITIONS FLANETES 


FRET CDæ1 THEN Rée"R" ELSE 


Fee non 


RONDE DEN HME DEEE DEHEDEDECHNE MED EE DOME DE DEEE DE DEEE 
REFARTITIONS MASTRINGE CES, 42) 


REFARTITIONS 
3 STRINGE CES, 42) + 


5 2 


MASCUL. TN 
FEMININS  : 


"3 MASC 
“: FEM 


CARKDINAUX : 
FIXES # 
MUTABLES 


"3 CARD 
1 : FI 
“5 MUT 





DE FEU 


ns y FEU 
DE TERRE 


"3 TERRE 
D'AIR "AIR 
D'EAU “s EAU 
STRING (0,42) 


SUR ECRAN TEXTE HER MEME DEDEDEDE DOME DE DEN 
planetes sont contenues dans un tableau 
X DE 1 À 10 


longitudes des 
tule LFCX) , 


La boucle d'impression fait partie du FGK appelant 
L'indice de 
VARIABLES UTILISEES : 


boucle est IF 
SI , LAS , 
RETURN 


LAS&FNMI (FNLAS (LF CIF) )) 


ec 3450 






20470 
20480 
4 70 







IF FRET(IF)=e0 THEN FKRET#Æ(CIF)æe"" ELSE FRET£(IF)æ"R" 
PRINT #1, USING FF#3FL#& CIF) ,LAS,FRETEÆ CIF) , SIGNE (ST); 
RETURN 
REN KKÉKHEEERHXX FOSTTIONS DES MAISONS SUR ECRAN TEXTE He OX OHOMCMOMEOMOHECDEMEODE DEEE NUE 
ENST (LM CIM) ) 
.. fe FNMI CFNLAS (LM CIM) )) 
INTER USTNG FM: MAIS CIM) , LAS, STONE (ST) 
RETURN 
RE ee ENTREE DONNEES FOUR THEME  NATAL. eee eee EEE EDEDEDEHEDEEDDEDEDEDEHE Ne 
KEM VARIABLES : HTU, DATE, LONG, LAT 
INFUT #5," NOM "3 NOMEÆ 
INPUT #5," FRENOM "3 FNOMEÆ 
INPUT #5 ,93 "DATE J/M/A ",D# 
GOSUR 20640 
IF FLD THEN FECINT #5, CHRE CL7)+CHRE C1) 5 GOTO 20570 
FAINT HS, 
INPUT #5, CMEURE TU CHE, MN, HTU 
HD: CPL / 12) CINT CHTU) + CHTU INT CHTU))K10/6) 
INEUT #5, "LAT CDD,MN +81 sud) !M,LA 
AT: (FT /180)% (INT (LA) + (LA INT (LA) ) #10/46) 
INEUT #5 , LON CDD,.MN +si est) ",LON 
LONG: (FT / 160) # (INT CLON) + CLON- TNT CLON))*x10/6) 
RETUFN 
REM ee DM N DE DE OMOME EDEN TRAITEMENT DATE échec EH DEEE ÉCHECS 
FLDeQs LDeLEN CD#) 
IF OLDEQ THEN FlDæ-l 2 RETURN 
JOUFREVAL CLEFTS CDE, LD 7) 0) 
MOIS VAL (MIDE OCDE, LD-6, 2) ) 
ANNEE VAL CRIGHTS (DE, 4)) 
IF JOURESL OK JOURSE A THEN FLDs : # RETURN 
IF MOISE1 OR MOIS1E THE #5 RETURN 
IF ANNEEZ 1800 OK ANNEE 2800 THEN FLD 1 1 RETURN 
RE TUFN 

























20700 REM ækemaexeurse CALCUL/IMPRESSION DES REFARTITIONS Xe DE DEEE 
positions planetaires sont contenues en LF (CT) 
ALES IR, MASC, FEM, CARD, FT, MUT FEU, TERKE , AIR, EAU 
# CARD&O x FTæcC ï MUIT #0 
D! LD 1 TÉERRE&Q 2 EAU 

ROC IR 1 TO 10 
2OPA4O STEENST CL CIF ) 
208560 IF SI MOD & = © THEN FEM&FEM4L ELGE MASC#MAGSCXT 
20860 AIGEST MOD 
20870 ON AIG+1 GOSUR 21000,20980,20990 
208680 AIG#ST MOD 4 

y +1 GOSUR 21040,21010,21020, 21080 























20900 NEXT 





CL 0 PRINT #4 RES CDs" MsFEM 5 FRINT #4 
CH)" Ma CARD s FARINT #4 ,REE (C4) 5" MaFT 2 PRINT #4 ,RFE (5) 





20910 FRINT #4 ,F 
20920 FRINT #4 ,f 
pt Us MUT 
20930 FRINT #4 
20940 FRINT #4 
20950 IF FLERT 
20960 RETURN 
20970 REM 66F 
20980 CA 
20990 FL 
21000 MUT 
21010 FEU 














# FRINT #4 REX C@) 3" Ma TERRE PECINT #4 RE (7) 3" "AIR 
REX (6) 3" MaEAUs FRINT #4,RF#Æ(Q) 3" "3 FEU 
IN GOSUR 20190 


ES AU CALE DES REFARTITIONS%X 
TURN 
TURN 
TURN 
TURN 
NE TURN 

ME TUEN 
21040 AU: EAU 1 5 RETURN 
“à À CA AE CALCUL DU ONE DE 















JOL 





GS DÉFUIS L/1/2000 0e EX ECM EDEN DEN DE DEN DEEE EE END ECX 
VARTAELES ENT JOUR, MOIS, ANNEE 
SORTIE NE 
21080 REM AUX Zi 
21090 21 = JOUR MOTS) 








BLLOOQ IF MOIS 5e 5 THEN 2Z1eZ1+FNRIS (ANNEE) 
BALIO NET IE ART ANMÈRE 2000) 4 JOUR 1 +271 





HO THEN NEJE&NEJ+TNT CCANNEE-- 1997) / 4) TNT (CANNEE-2001) /100) : GOTO 





21140 NEJ = NET ee TNT CCROOG-ANNER) 747) TNT CCANNEE- 1901) / 100) 
21180 NEJe-0, SANEJ + CINT CHTU) + CHTU- TNT CHTU) ) /0, 46) /24 
AlLéO TENEI/ ESS 
21170 RETURN 

21175 FRINT ©" ENTER FOUR CONTINUER‘: CALL SBE1B3: RETURN 

21190 REM %xkxenwese TNFUT CHOIX O/N  HMEMECHEOMOHECUEDEOEMEONE ED DEEE DE DEEE DEMO DE DE DE EEE DE DE DE DE EEE JE 
2LISO REM NUMERO DE CANAL © 

21200 INPUT #C," ee ue CHESUPPERS (CHE) 

OO IF LEFTÆCCHE, 1) &UOU THEN FlLCOHeel ELSE FLCH&O 

a 42 RE SURS 















SSIN DES MAISONS 666 0Xe M De DE EDEN END DE NE DEDEDEEDE DE DEEE EME DEEE EEE 


50 PRINT HE, NOME;" 5 PNOMÉ 
IMei TD 12 
SFNET (LM CIM) ) 
21280 LASEFNMI (FNLAS (LM CIM) ) ) 
21290 PRINT #2, USING FMG#; MAIS (CIM) ,LAG,CHRE (GI#24210) +CHR# (BIK2421 1) 
21300  TH=LMCIM) +180 

Hé RE 


GDS SUR 25870 








GOSUE 25870 
9  DRAW CX,CY 
30 GOSUR 21410 5 REM TAR FOS FOUR ASPECTS 





21290 NEXT IM 
21400 GOTO 21460 


21410 
#1420 
21450 
21440 

21450 
21460 
21470 
21480 


51540 
21550 
21560 
1570 
21390 
21590 
21600 
21610 
21620 
21630 
21640 
21650 
21660 
21670 
21680 
26000 
Te) 1€ Q 








REM SUB 
Fest 1 — 1 
IF IMs10 
FX CIN) æCX + 
RETURN 

REM Rex DESSIN DES 

FOR IFæi TO 10 

SISFNSI (LF CIF) 

LAS=FNMI (FNLAS (LF CIF) )) 

FRINT #2, 
THasLF (IF) +180 

ReRi-1 : GOSUE 

FXCIF)æCX + FYCIF) 

NEXT 

MG 2 FLPRTæO 

GRAFHICS FEN O,1 

TAG 

RP 400) 

FOR I=1i TO 1? 
TH&LF (1) +180 
ReæF+ 10 
IF RER24+50 
GOSUE 25870 
MOVE CX,CY 
PRINT CHR (19941) 3 

NEXT I 

TAGOFF : 

RETURN 


INTERNE 

GOSUER ae 
THEN INelS ELSE 
ee 


IF 11 


FLANETES 


29870 
m0 Y 


GOSUR ESEOs FLPRT Es 1 


THEN ReK24+10 


KAD 


REM ROM PREFARATION ÉCRAN TEXTE 


MODE 

EONDER 2 

INE Q,424 3 INK 
PAPER 1: FEN © 


1,0 


THEN IN: 


USING FFOGES;CHRE CIF+199) ,LA 


11 ELSE RETURN 


EME ONON DE OMOREONOMOMOMOMONONEOMCMODEHDE MODEM DEMEURE 


S,CHRE (SIx2+210) +CHRE(STxS+2 11) 


FOUR THÈME  NATAL. 4636060606 46x 


il 5 (e] 3 © 





CL.S 
REM HRXEREXMe TRACE DU CADIRE MeROXCMDEOHEOEDEMODEMENE HE DE DEHE DE DE DEEE DEEE DEEE EME 
REM xxx MORT ZONTALES HR HE DEEE HE DE HE HE DH DE DEEE EEE DE DE DE DE DE DE EE 
FOR Tel TO 80: FRINT CHRÆ(C1S4) 3 2NEXT 

LOCATE 1,1% 

FOR Tel TO 27: FRINT CHRE (154) %:NEXT 

LOCATEÉ 54,14 

FOR Teÿ4 TO 60: FARINT CHRE (154) 33 NEXT 

LOCATE 1,2% 

FOR Tel TO 80 2 FPARINT CHR (154) ss NEXT 

LOCATE 1,1 

FOR Tel TO 24 2 PRINT CHFGE (149) :NEXT 

FREM eee VERTICALES CHEHMEME HE MED DE DE NH DEEE DE HE DE HE DEEE DE DEEE DEEE DE DEEE 
FOR Tel TO 4 LOCATEÉ 27,7 ss PRINT CHRE (149) 2NEXT 

FOR Il TO 248 LOCATE 54,1 SPRINT CHEGE (149) 4 NEXT 

FQR Li TO 4 LOCATE 890,7 8 FARINT CHA C149) 3 NEXT 

FRERE eo  INTERSECTIONS eee He DD DD DDRM DEEE HE DEEE DE DE ÉD DE GENE EE 
LOCATE LL #FRINT 
LOCATE 27,14 0: FRINT 
LOCATEÉ 4,1 2 FRINT 
LOCATE 80,1 :FRINT 
LOCATE 1,1 2 FRINT 
LOCATE 47,123 FR 
LOCATE 54, 14: XINT CHERE 
LOCATE 90,14: FRINT CHF (157) 
LOCATE 1,25 INT CHR C1L47) 
LOCATE ARE CHR C1 55) 
LOCATE : TOCHRE CSS 
LOCATE tes 7 CHE 
FM eee Mn de 
WINDOW #1 ,2,%6 4 
WINDONN #2 5% 
WINDON HE 
































REM MAT SONS 
REM ASPECTS 








W I ND. JW 





4 













,24,60,102,10,60,24,0 





24,48,48,24, 12,0 


216,119 


5,126,4 








"BA Ba 16 56, 1e 
a LA Lé 









Ju LAC, | 
3 » 
oh 


3 


11976; 7er 192,12 


14,4 u il 



















25960 





BEOEO 
26040 
26050 





SYMEU. 
SVYMEUIL. 
SVYMI 
SVM. 
SYMEO 
SYMECIL. 
SYMEO. 
SYMEOL. 


Rd 
11717, 51730 
TalVus 1L,16,10,0 
8 Du C9 y CI y À 
do de ne 
0 0 4 y y 6 
ndnlO 60,737 dE 
Lo dby 40 614640, 
ES YMEO. sn Con pd OU 9 CT 7 y LG y RC 
SYMEO 4, da din Lo e y 4y LE y © 
SYMEOL. 76,64, 120,624, 126, 64,946,0 
RETURN 
REM FE 
GOT 2 
REP OUTILITAIRES GAFFE CLICS 8e ne cn 2 ONCE DEEE EEE EE EE EE DO DMC OEM ME EE EME EE DEEE 
REM GSUE CERCLE 
Ê re 


















cn y 4 















CFA MIA HE DEN DEEE HE NEED DEEE HE MED DE EDEN EEE DEEE DEEE DE DEN DE DE DEN 








FINIT FENETRES 





LAINE EH DE HE ME DEHOME DEMO CRE M CHEN CREME HD EDEN EE MON 
MODE 

INE G,24 8 INK LA 4 INE &,17 4 INE 5,6 

WINDOUW #2 a | HANEX AFFICHAGE TEXTE DES RESUL 
WINDOIW # pd Lu LU REM RM LLTIGNE 7  BANDEAU SUFPE 
PEN OQ 5 FAFE U 

GRAFHICS FA 
PAPER 42,2 3 PEN “ou 

CLOG CLS 42 

FA L'ECLS HS Os FEN HA, 
BORDER 
REM CARTE DU  CTEL. Me ee He De EDEN OM DEMO ED DÉE HE CHE DE DE MED EE EDEN OM OEEEDEOUN 
DEG 

REM TE CE DU MONET TLELLLZLLILLSLSILLLLILLSLILLILLLSLSILILILILISILILILLILLSLSSLS PLDLLILILLIZS: 











TATS 
IEUR GAUCHE 





BE 








26O8Q oxml9S ss ovelQ ss rimBOs ram] 26 
260 7Q FOR THeQ TO ; 
26080 perl + GOSUR 25870 

26090 KHIMEX sylmcy 

26100 FPLOT x1,y1 

S6LIO vers ss GOGUR 26870 sFLOT cxK,cy 

26120 IF TH MOD #0 <% © THEN 26140 

26150 DRAW xl,yi 

26140 NEXT 

26150 KEM FOSITIONNE LES SIGNES 6e ee ee BE MEME ME MED HEH HE DEEE DE HE HOME EDEN REED DEEE HE EEE 
26160 DATA 6,15,7,18,10,20,14,20,17,18,18,1S 

26170 DATA 18,12,17,9,14,7,10,7,7,96,1% 

26180 RESTORE 261460 

26190 FOR iæQ TO 11 

26200 READ cx,cy 

SbS1Q LOCATE CH,cy 

LOLRQ ste MFGE CT ki ) +CHRE CALE 1 ) 

2GIO FRINT S% 

26840 NEXT 

26230 MOVE 192,192 3 FILL % 

26260 TAGOFF 

2670 RAD 

262890 RETURN 

FO0000 KEM HKEKEHENEX TABLEAUX xxx FONCTIONS HE DEEE DE DE DE DE DÉMO DOM DEN DEEE DEEE DEN DEN 
30010 KEM 

20020 DIM SIGNE CLS) ,MAISE (12) ,LM C1), JOUR (12) ,WORE (90) ,FX (15), ,FY CIE) ,LF (12) , EOUG 
E (64) 

EOOZO REM eee PLANETE SSH EDMOND CHENE 

20040 KEM 

3200850 DATA SOLETL, LUNE , MERCURE , VENUS , MARS, JUFITER, SATURNE , URANUS , NEFTUNE , FLUTON 
10060 RESTORE 30050 

20070 FOR Is1 TO 1O:READ FL£CID:NEXT I 

HOOGO REM HR RNMRUX STONES CHOEUR D 



















50090 
50100 


x ec] STE 
30160 
#0170 
20180 











LCA LC 





REM 

DATA BELIER, TAUREAU, GEMEAUX , CANCER , LION, VIERGE 
DATA en nee CAFRICORNE , VERSEAL 
FOR Tel TO 18:READ SIGNE CI) 8 NEXT 

REM He ROUX MAT SONGS 6e MOMCMOMONOMOHOECHEOHE OUEN 
REM 

DATA AG,II,III,FC,V,VI,DS,VIII,IX,MC 
FOR Iæl TO 12:READ MAIS# CID): NEXT 

RM OOE REFART LT IONS JON 
REM 


ÉALANCE 
POISSONS 









"XII 





ol » FEMININS , CARDINAUX FIXES, MUTABLES 

DATA TERRE, AT AJ, FE 

FOR Il TO os SL : ENEXT 

HOME LSLELETE) | FORMATS D'IMPRESSION ( 
: ce HAE, HT Gr 

4H co! 

HAE, CH ce pe 
Ge OH HR Ge 






MODE TEXTE 


GG 


G 27 
HAE! 

t 4 
GOHAS HE Go cc (es 
HA HE GC RL 
ç GG GG ce AH" 
MORE ERURUEX CALCUL NE DE JOURS DEFUTS 
A INT CX/20) +1 
ENLAS CX) = X 
FNDIV CA, EC A MOD K 0 ) 

ù FNELS (A) = EE DU 4) x C1-FNDIV (A, 100) +FNDIV (A, 
DA 0,31,89,90,120, 151, LOL AIR, SR TE 5 
FOR Tel TO 128 READ JOUR (LD) # NEXT 
REM Ce TRANSEF DEC, EN DEGMIN 





IPAPAMNONETESTSSIT SSI TSSSS: 


100) #FNDIV (A, 400) ) 


ELLE LLLS. x: x: x: x x: C2 L'a C2 XX L'a + x: x x x x: 2 x 


FNMT COX) INT COX) +0, 6x (Xe INT COX) 2 
FRELM  e ee t  TARLEAU FOUR  DOMIF LCAT TON 628 26 26e EEE MEME HE ED HE DEN EME 
FE M FLACIDE 
DATA 1,4,%,4 
FOR Tel TO 4 4 READ FLACCI) #4 NEXT 
FRE Me panne a tn '5.$ Mae on ae 
7 4 Bo REM exe ASF CT 5 MATE U IF ES HOMO A HO MOHON DE D DÉOMEDE ED DEHEHEHEHE DER DEHEEOONE EEE 
204970 DATA 0,60,90,120, 180 
DATA CONJONC SE X° 1 ÎLE, CARRE, TRIGONE, OFFOS TT 
DATA 18,4,6,7,1% 
| TO F3 
Mi CE) 4 NEXT 
TO S 
READ  ASMASE CT) 2 NEXT 
FOI Lui TO S 
READ  OMA CT) 5 NEXT 
5 l 
FEMME NOR TRANS TTES CRONOMOE MONDE HOME DRE DD CHERE ONE OMR MERE ENORME DENON MN 
DATA OS a po ad ge Ep Le yann y 2 y à Q 
FOR Lt ‘? 
HO6EO READ DA # DI CI)æD1/1200 
SU6GEIO NEXT 
HO 640 DATA MALTE CERE ES ECEEECTESELTES Sy 40 
3 C \ 1 TO 9 
De CT) D / ROUE 























0670 
20660 RAD 

20690 RETURN 

cs 510 REM xx ATTENTE D'UNE TONI 6 0e 9e de 9 6 de 0e de DE NE EN 

FHRINT #0, " ne FOUR CONTINUER‘ s CALL BAR G: RETURN 

NE XT 

DIM SIGNE CIE) MAIS CT) LM COLE), JOUR C1, WORE COCO) , FX CL) ,FY CIE) , LE (12) 
y DE (4.0) 
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Les logiciels de calculs astrologiques existant 
actuellement voient leurs prix varier de quelques 
centaines à quelques milliers de francs. lis offrent 
parfois des possibilités moindres que celui que vous 
créerez grâce à cet ouvrage. 

Si vous pouvez dresser un thème natal complet en 
moins de vingt-cinq secondes, une révolution 

solaire en moins de cinquante secondes où comparer 
deux thèmes en moins de deux minutes, ce livre 
n'est pas fait pour vous. 

Si, par contre, vous souhaitez disposer d'un outil de 
calculs permettant l'érection d'un thème natal ou 
d'une révolution solaire, la comparaison de thèmes, 
la recherche automatique des transits et progressions 
tout en comprenant les mécanismes mis en œuvre, 
alors cet ouvrage vous comblera. 
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